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Ahatraot 


Tha aahaaaad aaraion of tha Dacialon Analyaia Support lyotaa 
<DABS> la a highly interactive ooaputer-aided daeialen aaalyata toel. It 
autaaatea tha method far deteraiining prafaranaaa whan aultipln and 
eaapatlng attribatea art inaelaad. Worth aeaeeament U naad aa tha model 
which aealoataa a deterainiatlo hiararchiaal traa atruotora. although 
rink o»n ha eealuatad by incorporating tick into tha trot or by 
aondooting aaaaitlvity analyaaa. 

Tha objective of thia work waa to ineorporato tha DASS 
(originally developed by Bruoa V. Harlan) onto a aieroooaputer aaing 
PASCAL. Tha aaoond objective waa to aaploit tha oolor graphioa 
capability on tha aioroeoaputer ayataa for both input and ontpot 
diaplaya. Tha final objective waa to add capability to tha DASS by 
adding additional eeneltivity analyaia aodolaa. 

All obioetiaaa wara not in thia work. Additional aiploitalion of 
tha computer graphica. aa wall aa aona pra-proeacaing of tha traa 
atrnetora ara araaa ouggaatad for farther aiploratien. 
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ENHANCED DECISION ANALYSIS SUPPORT SYSTEM 


I • Backoround 


W», >i hunan beings, ait faced with many daeltiont Iron the Hat we 
awake in .ha earning until we sleep at night. Many daoiaiona are trivial 
in nature, each ai which ahirt to waar, or which route to taka to work. 
Othare arc acta eoaplai; such aa which nait lob to taka or what type o t 
houaa to bug. 

Eatripolating (roa tha paraonai to the oorporate, daciaicna have to 
bo made by Individuals concarning a military aarvtca or a national 
govarnmant. Daoiaiona aoch aa whether or not to boy tha MX aiaaila 
oyetea or whether or not to develop noelaar power am eoaplai both in 
tha nusber of and tha variability of the factor! in the deeieion. Such 
deciviona can be aade entirely on an ad hoc, aaat ot tha panto batla, 
although daoiaiona ao baaed could be radically incorrect. Thua deeieion 
■akara are eaaklng Methods and technique! which enables then to reduce 
tha uncertainty In their decisions as wall as providing a comfortable 
structure to work tn. One teohnlque fa decision analysis. 











Decision Analysis 

Ditlilt* tniiydi has been available 11 * tool (or ditiilca Mktu 
ter about 10 years (Ref 1:4). Otclalon analysis ta d*(in*4 an: 


*... a quant 1»a11 to method which poraits tho systematic 
ooaloatlon of tho eoata or bonofit* accruing to coarse* 
of aotlon* that might bo takon In a decision probloa. 

It ontaila identification of tho alternative choieoa 
Involved, tho assignment of values (coata/bonofita) of 
poaaiblo ooteoaoa, and tho eipresaion of tho 
probability of thoao ontooaao being roailiod.* 


Ooolaion analysis looka at a partionlar way a problem can bo decomposed 
into identifiablo elemental and ayataaa11 cal 1y evaluates tho olomonta in 
order for tho decision maker to clearly understand tho problem and to 
actively pursue a solution (Raf 10 : v11 >. 

la using decision analysts as a tool for decision making, a 
particular paradigm is developed for the problem. Credit for tho 
paradigm, itself, is generally attributed to 1. D. Hall of the Bell 
Telephone System, and consists of seven steps: problem definition, vein:, 
aystem dealgn, system synthesis, system analysis, optimisation, decision 
making and planning for action. 

In tho problam definition, a general statement of the current 
situation Is defined as is the future situation after decision 
imp I amentalI on. In addition, the scope of the problem is essoined with 


regard to the stakeholders, their specific needs, major constraints and 













aoctatal faetori. Th* problta It thin partiticnad intt raltvant 
alantnta Thttt tlaaantt aoat !• rtltaant to tht ■ttktholdtrt, that ti 
tht dtclalon attar it wall •* thttt who fand tht proftot. Vhtn tht 
problta ie that dtflntd, U.t valot ifitii dttlgn It inltltttd. 


In tht ttlatt tytita dttlgn, tht obK«tl*tt ltd nttiortt (tr tht 
jtetlttt art dtttltptd Thttt abitetlvet trt trgtnlttd Intt t 
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rigart I Objaott** Tttt 

hltrtrchictl atroetar# or objtctiTt tr#* with tht ntln goal ttop and 
aupportlng goal# at Ttrlo'i* branch#* (Flgort 1). 

Colng down tht ob)#oti#i trot antwirt th# qoattlon of how tha aain 
goat It to b# a e coop t t ah# d . Colng op th# objtctiTt Ira# amwiri th# 
quattlon ot why a particular goal n*#dt to bt net. Colng laterally 
through tht tr#t for tha tin# lata! tub-goal dattralnaa what nttdt to bt 
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aeceapliahod Is (*1(111 the nest hlgktt goal. 

Th § rtatinisg step* on various dselslon analysis t c.. nlquss I* 
lirlM it • dteislen sod thsn Is Implement th* dsolslon. On* tschniqu* 
that It u**d (st multiple objective#, which act net easily rslst* t* 
specific criteria end Bay else be esntiieting, i* Multiple Criteria 
Dseisien Theory (HCDT). Heltlple criteria deiciscn theory is farther 
divided into a Maltiplo Attribute Utility Theory (HAUT) and Multiple 
Obieotive Opflnlsatlon Theory (HOOT). Seleotten of HAUT or HOOT depends 
primarily on the nature of th* problea, policies, and attiibutes. 

Multiple Attribute Utility Theory is defined as: 

“A type of decision theory; requires th* analyst to 
•licit prefsrenoo interaction concerning the attributes 
of proposed alternative policy of the decision aaker ; 
utilising the deoieion Bakers' preferences, th* analyst 
fora* a scalar choice function (SCf). The SCF is used 
to evaluate the outcoses of the alternatives, score, 
and subsequently rank th* alternative policies (or th* 
decision asking slap." (Ref 3) 

The advantage of HAUT is that the result provides a ooaplat* 
ranking of th* a 11arna 1 1ves, however, disadvantage'’ Include subjectivity 
in establishing the scalar choice (unction and tha tine required (or 
lap I Iaen tation. 


Multiple Obieotive Optlaliation Theory it defined aa: 


An optlaliation atlhod (or enuaeratlnq ’optimal* 







solution* for iltifatim sets which eitreaise s 
vector of performance indioe*. The purposo Is to 
(•norats a non>doainated solution sot ws oall 
psrsto optiaal which represents 'efficient* 
allocation of resources." (Ref 3) 

The advantage of HOOT is that the only sooting funottons with rospoot to 
porferaanoo indioos ads. necessary. This rasults in seas tiae saving over 
KAUT. However, HOOT only prides a partial or inooaplate ranking of 
alternatives. 

\ 

\ 

Foousing our attention to HAUT, we find that HAUT is furthar 
divided into two areas: eartainty and risk. Under certainty, weights and 
values of the attributes are deterained etaetly. This fora of the 
problsa represents an easily solvable, oloaed fora solution using the 
various decision tree techniques such as worth assessasnt. 

Risk involves getting the deeislon acker's attitudes towards risk 
and establishing tho values of attributes and alternatives; however, in 
this case, each value has an associated uncertainty factor. Solutions to 
this problsa are aooh aore couples, although they eoae much closer to 
repesenting the real world. Solutions often incorporate utility 
funotions to aeasure the risk adverseness or proneness of a given 
deoision aaker to determine alternative ranking. 

Current Activities in Dvcislon Analysis 

Deoision analysis is slowly bsinj accepted by the industrial and 


governmental ooaaunity. Deoision Support Systems (DSS) defined as: 















"...a oonputar-basad i;ilia (say, a data baaa 
aanifiainl ifilta or a aat of finanolat aodals) 
which ia used personally on an ongoing baaia by 
•anagara and thair immediate atatta In dttaot 
support of aanagarial activities — that ia, 
decisions. - (Ref »:1I?) 

h a to boon growing both in tha aoadaaio aa wall aa indaatrlat aaotors. 

DSS ara primarily daalgnad to aid in daoiaion making and decision 
implaaantation. Farther, DSS foooaaa on tha aopport of daoialon making 
and daoialon analyala rathar than on tha ayatam of Information flow and 
raperta (Rof ll:il-i]). Emphaaia ia placed on integrating tha doolalon 
maker into tha proeaaa of daoiaion analyaia. A model of tha DSS ayatam 
la ahown in Figore 2. 

Ualng tha compotar aa a bookkeeper and diaplay generator, tha 
daoiaion maker can determine tha reeulte of a partioolar decision or 
decisions. The obleotive of DSS is to provide the decision maker a very 
complete and fleiible model which can be aecessed from a terminal with 
eat knowledge of programming or computers (Ref 11:3S). 

In order to meet the DSS oblective many techniques using decision 
analysis methods are incorporated into the model base. As stated 
earlier, decision analysis methods break down a large problem into 
identifiable, smaller, more managabie elements which can be dealt with 
on an individual basis. This deconposabi11ty coupled with the structured 
natcre of decleion analysis makes computerisation of deolston analysis 
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technique* highly attract!**. 


DATA BASE MODEL BABE 



USER INTERFACE 


1 

DECISION MAKER 


Figor* 1 Decision Support Systtas <K»i 18:44) 


Rtoont work don* by Dicitions »nd Designs, Ino <DDI> lor »h« 
D*(*ns* Advanced Research Frojcets Agency had d*aon*trat*d on-lint 
real-tine d*oi* I on analyst* nodal* whteh could U) perforn 
hierarchical ly band probability a***f*a*nt*, (2) parfora 
aolti-attribute, llnttr additi** value function analyst*, and (1) work 
wtth standard dceislon tr*t strootur** (Ref t«:B> However, th*»* 
















teohniguee watt Halted by tha language that w*» used ;XPU, the 


doeumaatatlon of tha programs, and the aita of tha problaa that oaatd ba 
>nalyted (Ref ld:*>. That a pragraa package waa dttirad which weald 
provide a taal-tiae, aaar oriented daeieion analysis aystem witbeut'the 
limitations aneoantered in tha DDI work. 


Currant Research in Real-Time Peeialon Analysis Systems 

A pregraa package waa developed by Captain Brace V. Harlan aa a 
Rasters Thcaia for tha Air Force Inatitate of Taehnoiogy. Known aa tha 
Daeieion Analyaia Support Spates (DASS). The obleetivee of hie thaaia 
ware ta oraata a program whieh ooaid: 


il ba need interactively in non-apeciMe htirarchioal 
daeieion analyaie 

2) provide aanaitivity analyaie whieh eould ba need in an 
interaetiva dialog 

I) demonatrate aoaa dieplay formate which could ba need 
to gat information to tha gear 

4) aot aa a foundation upon whieh to build a daeieion 
analyaia package 

J) denonatrate tone of the algorthma which ean ba uead for 
manipulating hierarchical information 

t) ba documented sufficiently for other proapaotiva users 
to implement and modify (Ref 14:d> 


In addition to.tha above objectives, another co-obfective waa to 
demonstrate the program for use on a snail microcomputer (Apple II). 

Hictocomputera have the advantage of being highly portable and vary low 



















in cost. Another advantage o( microcomputers, end in particular the 
Apple II. ie that the systea ie capable e( celer graphlos which oeeld 
greatly enhance the etility of Jisplaye. Thie capability ie net readily 
available on larger aaehinee eirept at very high coat. Unfortunately. 
dee tc ontoreeeable delay* in the aicroceapnter aegeieitien, the bulk et 
the objective* ware aet eelng the Air Faroe Inatltote of Technology'* 

CDC didS ijatea using FORTRAN. However, a program was written for tho 
Apple 11. oelng Appleacft II BASIC to deaonetrate feaeibillty. and aaay 
FORTRAN DASS option* war* incledad (including eanaitivity). Nany 
eoggaeted iaprevaaente tc DASS were eoggeeted by Captain Horten for the 
aicroooapoter eyetaa. One wac incorporating oolor graphic* to the Applo 
•ystea through coaputer structuring (the current verrion was Matted do* 
to aeaery restriction* of graphics using Applesoft II BASIC). 
Introduction of graphics (or displays and interactions would enhanee the 
decision acker's interface with tho DASS (Ref ll:*i>. 

Another ares of iaproveaent lor the aiorocoaputer systea is in the 
area of language. BASIC was selected in the denonet rat Ion (or the Apple 
II priaarlly for convenience and language avaiIeb11ity . However, the 
language suffer* frea not being very transferable tc other systea*. 

Since l»7t, new standardised eoaplier languages have been aad* available 
for aieroeoapulers, primarily USCD Pascal. Such a language has two 
advantages (1) being a compiler, the aetual cieeutabla prograa oan be 
run with a smaller memory, and (1) tho languege Is standardised in th* 


industry. 












Hotioation for Continued Htitimh 


Dooioioa analytic reqairee tool* that art fleiible, adaptable, and 
aaay to aoo (Rot 9:110. Tho fleiibility and adaptability •( tbo tool la 
often aot meaanred la tame oi tbo oaco la oroating tbo orlglaal 
■traotara, bat catbor in tbo oaco of modification to that atraotare, 
priaarily la tho atoa of oonoitioity analytic (Rat 12:111). 

la addition, ao atatad aarliar, tha incorporation of graphical 
rapraaantationa of daeialon analytic taehnigaaa greatly anhanoaa tbo 
andaratanding of tha iapaet of dacicionc on tha problem atractara. Ill* 
tha andaratanding of tha uncertainty of tha attribntaa ia anhanoad. 

Tha naa of microeompatere can be of great atrvice to dteiaion 
analycla dot to their low ooat and graphica capability. In addition, 
they art highly portable and not dependent on larger naehinea for 
operation. 
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II Tht Model and Area of Potential Application* 

Thl* ••etion will introduce th* nodel that th* Dectiion Inilfili 
Support Syctea (DABS) lupport* and (ho procoduro that *hould bo «**d la 
ordor to iaploaont th» DABS aodol. 

Tht Hodol - Worth A*«oe«nent 

Th* DASS aodolt worth ****a*aent which woo introduced by J. K. 
Hiller III in 1*6? oo o aothod lot doteraining prefortnooa whon aottiplo 
ond coapoting ottribotoo oro involved (Ref 10). Tho tora worth oon bo 
equated to other torao each oo votae or utility, or ony other wordo 
which hove o definition of ", . . aeooaro of tho dooirobility of o thing 
. . (Ref 6:161). Vorth io not o flood voloo, bat vorleo eeoording to 
individual profereneee. Thao worth oeeribed by one individaol aoy bo 
golto different froa the worth defined by o different individaol. 

Vorth ocoeooaont dtooapooeo the problea into on hlorarehieol tree 
otruoture of obiectivec and oub-oli jeotivac. Tht "root" or top-aoot node 
in tho otruoture rapreeente tho aain objeotiv* againct whloh alternative 
eolutione are evaluated. Within the tree otruoture, oub-obieottwo or 
goolo are defined to aeet the nert higher objective, eventually leading 
to the aain goal At the loweot level* of a given branch of the tree 
rttldee th* *p*e i (1c or i toria or attribute* which are either aeaoured or 
directly aooigned. 


An coaapl* of euch an hierarchical tree otcuoture io ohewn in 














Figat* 4. Tha overall objective of a thaatra air coaaandar is la 
aaiataln aantral af anaay ground aovaaant through tha aaa of air pawar. 

Tha "root" nod* had thraa aebgaala ta aid in achiaaing tha Min 
objective and these, in turn, had sub-ebjsetivas. In this figara, tha 
laaut aub-goal* wara forthar broken dawn into graatar datail until tha 
aadaa wara aapabla of baing aaaaurad according to tha auction which 
faliawa. 

Relevant feature* af problaaa which aaa worth aasassaaat art: 

1) Tharo ara multiple obiaatiaaa and assessaant sub-obieottves 
to ba oanaidarad and arranged in aona arganitad farm. 

Z) Thara ara anltipla factor* whaaa attribnta* aoat b* 
predicted. 

S) Thera ara anltipla worth eonnaotion* batwaan tha sub- 
oblactiaaa and tha attribnta*. 

4) Thar* i* physical interaction aaong the attribnta*. 

S> Thar* i* often worth intardapandanea aaong tha aub-objactives. 
(Raf 4:155) 

At thi* point, it aheuld ba olaar that thi* nodal only evaluate* 
daterainlatIo problaaa where the probability of the attribnta or 
conaaqnanca* oecnring for tha vain* baing trna) i* unity. No aachaniaa 
inherently aaiat* tor Including the daciaion Baker'a attitude toward* 
riak (Raf 14:3 S 5 >. However, aavaral author* hare iaplaaantad aehaaa* in 
which uncertainty ia factored into the weighting atruotur* of tha tree 
(Raf 4:170-1) or hava oraatad new criteria relating to riak itaalf. 
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Figure 3 Hierarchical Tree Structure 















Applying th* Mod*I 


In applying th» nodal, Farris ( Sty* suggest alt steps (Rtf 
4:1141-111*). Tht DABS can bt gill to aaaiat tht decision ukit la atapa 
two, faor, flat, tad ala. 

<11 Llat tha otarall performance objectives. Tha liat afaosld only 
eoatala thoaa factors which ata aoat important to tha problem at head. 
I'Jil ohlaetiraa eaa ba obtalnad through aaay approaehaa (HaoCrlaaon - 
1949). Approaehaa laeluda aaaalnatiea of ralaaant lltaratara, aaalytloal 
atady, and ampirieal empiricist. Eaaalaation of tha lltaratara oaa 
poaaibly reveal previous anooontara with a alailar problaa. Analytical 
atady inoladaa balldir.; a model of tha ayataa whara variable* of the 
problaa can aaarga. Eaplrlcal tapirieiaa aaan* to capura tha "thought 
process" of people acting aiailar daciaiona. Another aathod, which ia 
gaining aaa in government and in private indaatry t* to aaa a "panel of 
eaperts" to obtain tha various liat* of objeetiv** (Raf 10:13). 

(1) Construct a hierarchy of perforaanoe criteria. Based on tha 
objectives anuaaratad in step one, determine which objectives ar* 
superior to, equal to, or aubordinata to other objectives. The raaulting 
tree struetur* will b* d*v*lop*d with th* overall goal or objective at 
th* top of th* subordinate objectives branching below. While 
constructing th* tras, additional sub-obJ•o11 vs* or eritsrla nay ba 
unoovarad and added. Hiller points oat th* purpose i* to esplicltly 









state whet it intended by at included by a particular objective (Raf 
13:11). Tba result at thla ii ta provide a v 1 aw ar pietaral up at tka 
problem (hawing tha intaraatiana and rat aticmhi pa aaang tha 
sub-objsot1ves. 

unit can proviaa aaaiatanoa by preaiding graphieal rapraaantatian 
at tha daciaien traa (aaing a wiring diagram format). Tha deoiaioa maker 
aan add er delate sub-ebjeetivas at will in etder ta achieve tha desired 
traa etraetare. 

(1) Select appropriate physical partarmanoa measures. In creating 
tha traa structure, tha daciaien maker will have a iowest-sat of 
sub-objoot1vas (also known as attributes or data nodes). These 
attirbutas should, as a group, have several properties. Attributes 
should be oomplote, operational, decomposable, non-redundant, and 
minimum sita (Rat 10:30—32,id:14-17). In addition, thase attributas 
should ba able to hava aomi physical eharaotar1stic assigned to them. In 
order to determine tha appreprlatanasa of a measure.. Saga suggests that 
If changes in tha state of tha measure brings significant changes in tha 
astant ol goal satisf.iction than tha measure is appropriate (Raf 
14 : 334 ). 

(4) Define tha relationship between attributes and physical 
pertormanea measures, that is, deal with the scoring problem. The 
previous step dealt with ths eristenoe of attributes and not with the 
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partioolar film. Sooring function* aust b* astablishad to transform 
th* physical okarootariatlo into • worth aala*. Millar oaaa • aat of 
soran conventions that ean ho useful In oatabtlahlng worth valao 
tanotion* (Rot 11 : 44 - 44 ). Nota that thia trantforaation la only don* 
among tho attribato* and not th* sub-objactivas. Thia la boeaaao 
sub-ob)actIsas ar* rolatad to th* attribata* or lowar objectives and 
thalr talaoa will b* baaod on tha oantribation at th* lowor 1***1 
obfaotivos and attribataa. 

Thar* aro many aooring proeadaroa that can b* aaad to aatabllah th* 
worth aooroa (Ra* 11:147-117). Th* DASS was daaignad to only aa* th* 
roaalting worth aeoraa (naaaurad Iron 0 to 100 a* opposed to Minor's 
seal* of 0 to 1) a* Inputs to th* tro* attributes. 

(S) Establish solatia* Inportanos within th* saboritarl* sat. Vhan 
th* tro* was originally established In stop 2 of this prooadora, many 
object!*** war* divided into imaodiat* sab-obJaetlvas all oontribattng 
to th* higher (or parent) objaett**. Th* problem now is to daeid* how 
naoh oaoh sub-objaotl*a (or child) oontrtbutas to th* parent objootl**. 
Th* rasalttng weights ( a naasura o( rolatiso iaportanco) ar* assigned 
to aacb sat of ohildran such that tho sun ot th* weight* ara unity. On* 
method in assigning weights is to rank a particular sat ol ohildran (Raf 
14:157-151). Assign a tanporary value of on* to tha aost important 
child. Than astiaat* how much las* important th* nait sub-objootl»a is. 
for osamplo, if th* nost sub-obJsoti** Is thr*a-fourths as Important as 
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th* aost important *ub-obJectIva, than assign th* temporary value of 
0.73 to it. Thao rota tha third child against tha aaaand. If tha third 
child if ona-half af important oa tha second, than tha third child if 
0.373 oa important ta tha firat and tha temperary rains af 0.373 if 
asalgnad ta tha third child. Tha praeaca cantinnac until tha laat child 
is avalnatad. At that tlaa, all tha weights ara than raacalad aoch that 
thair ana is unity. If w* lat b(p) ha tha taaparory weight of tha aaat 
iapartont ohild fof p children), tha naraaliaad weight af any child i 
Mill ha: 


Noraaltrad Weight 


hit) 

b(1) ♦ bill ♦ . . b(p) 


Tha DASS proTidae tha near tha capability ta enter tha iaportanoa 
af ana node relative ta the aoa* iaportant and automatically noraallaea 
tha entered weightf. Tha program alee allow* the near to aodify theca 
weights tor a given structure at will. 


(i) Adjust tha weights to reflect confidence In the perforaanca 
■natures. After the weight* and values have been estibliehed in tha 
proceeding steps a cumulative weight can be established for each n.de by 
■ultiplylng th* walghic of itself and til Its parents. This cumulative 
w?<ght reflects the node's contribution te the entire tree structure. By 
■ultiplying th* worth scores for each attribute by its cumulative weight 
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and then •suing the reselling products o( ail th» attributes, a total 
worth toira lor a gieon alternative ean bo established. 

is with all ifttiai, all figoroo or valoos carry a certain degree 
of snosrtainty. One aothod to doal with oneertainty it to adloat the 
conslative weights of the attrlbstoo by a (aetor whose raise is between 
sore (no eonftdonoo) to one (certainty). The esnnlatieo weights art then 
re-norna1Isod and tho resoltant now weights an then need In osalsattng 
alternatiees (Hot 14:331) . 

DhfS ssos aonsltieltr analysis to deal with onoertainty. An 
adeantags of sonsitieity analysis osor adlnstasnts la that a particular 
sub-ob)ec11ee or attribsto taking on a range of vaises can bo otanined 
to ooe If ths alternatiee ranking of ths oeorall oblectkeo changes. A 
disadvantage is that only one objoetivr or attribsto can br eaanlned at 
a tins. 


1 1 











The main throat of thia thaata an to oombine thraa different . 
technologies to demonstrate both tho feasibility and praettoality of 
employing tha DASS. Thaao tachnologiaa ware atcroeompotars, eoapotor 
graphics, and sensitivity analysis. In thla (action, dtacoaaion will 
cantor about aaeh tachnieal araa dtaeuaaing both tha obiectiva and tha 
aathod oaod to roach tha objeotive. 


Microcomputers 


Ona objaotiro poraoad was to install tha DASS on tha Apple II 


microcomputer and to daaonatrata tha aierooomp'uter* a capability. Aa 
aantionad ee.lier, alcroeoaputara have tha advantage of being portable. 


In addition, aieroeoapotara otter advantages of lower capital investment 


(typical ayataaa are under >3000) and lower power ooata (Ref 19:77). 
Tha Apple II waa (elected because of its prior dcaonstrated 


performance using tho BASIC version of DASS and its immediate 
accessibility. In addition, tho Apple II had the capability of producing 
high resolution color graphics (ISO s ifl). These features coupled with 


the availability of the PASCAL compiler Indicated than an espansion of 


the BASIC DASS program to be both feasible and doabla. 

PASCAL.is a fairly new language. It is the first language to embody 
the concepts of structured programming defined by Edsger DIJkstra and C. 







A. A. Hears. The tingftfi nii diuloiil by Niklaus Vlrth at 
Eidgenessisehe Technische Hoehsohula in Zorich and ic a derivative of 
ALGOL tO (Ref 7:fii). The main advantages of PASCAL art in lit program 
•troetoro and its data datinltian (Raf IS). 

An implementation ef PASCAL, specifically for small naehinaa Ilka 
tha Apple II, la USCD PASCAL daaalopad by tha Inatitota of Information 
Seianeaa at tha Univarsity of California at San Diago, under tha 
diraotlon of Kenneth L Bowles. USCD PASCAL differs from tha PASCAL 
defined by Kathleen Jansen and Niklaos Virth in their PASCAL USER MANUAL 
AND REPORT primarily in tha areas of tiles and inpat I output operations. 
In tha PASCAL version of DASS, one diffarenoa that was used in USCD 
PASCAL was tha use of random acoass of data files (Raf 17:151). Tha 
largest diffarenoa, though, was in tha use of segmented procedures. 

Segmented procedures allow a large program to be divided into 
smaller parts which are then entered into the computer memory as they 
are needed. This process is similar to overlaying found in FORTRAN. This 
option allows for a computer compiled program to be several times larger 
than the intrinsic computer memory which results in more processing and 
display capabilities. In addition, segmented procedures are advantageous 
because the variables common to all procedures are immediately 
available, a fact which is not readily available in other schemes in 
program chaining (for esample, BASIC). 

In the development of the enhanoed DASS, segment procedures were 
created along the lines of major program options sooh as creating the 









traa atruoture (option SPA) and loadino attribute value* and 


cub-objeotiv* weight* (option WC). In all, ail aagnant proeadaraa aara 
aaad oat of tha aeven available which allow* for aona fatara aapanaion 
of tha OASS. 

Conpotar Color Craphlc* 

Tha aaeond objective which wai paranad waa to aiploit color 
eonpatar graphioa, in particular, tha color graphioa available to tha 
Apple II PASCAL ayaten. 

Tha field of computer graphioa ia a new, rapidly developing field. 
Ita ohief advantage ean be vanned ap by the old Chineae proverb of “on* 
picture ia worth a thoaaand worda*. Approainately eighty paroant of 
infornation that ia reaanbered ia reeiavad through viaoal atinnli (Iof 
1:104). In addition, tha hvnan nind ia tha beat available pattern 
recognition oonpater. Thic coupled with the fact that graphic fornate 
convey quantitative data aa patterna in phyaical apace, the hunan can 
accinalate large anounta of data to nek* daoiciona (Ref 4:112). In fact, 
graphical reprecentationc of data ia uaad to clarify trenda, identify 
the negnitade of trend*, facilitate conpariaona, aid in retention, and 
focua attention on the aignifioant aapeot* of the infornation (Ref 
2:24). 

A two phaae effort wa* caed to achieve the objective of color 
computet .rtphloa The first wa* to enhance the graphical preaentation* 
in the original ivraion of the DASS (Ref 14). Theae preaentation* war* 












prinarily foand In th* display tad sensitivity nodal** of th* progtas. 
Th* ooeond woo to odd now graphic display*. Thoo* dioplofo worn in the 
oroo of inpat, prisorily th* hiororehiool tro* itooli ond in oooignisg 
worth voices to th* ottribatoo. Boior* dioeutoing that* phooos in 
dotoil, ton* general oonnont* notd to bt sod* ooneorning th* color 
system a**d. 

Colot* available to th* Apple II PASCAL system wot# orongo, violet, 
bin*, gtoon, ond whit* *• wall •* th* boekgtoand eolot of block. In 
order to nointoin consistency thtoaghoat th* ptogron, o aniqa* ootor wo* 
o«*lgn*d to ooch alternative. Tha* th* lir*t alternative wo* o**ign*d 
color orongo, th* n**t violet, ond *o on. A legend roloting oolor* to 
oltarnotivac opp«»r*d on ooch grophio* iignr* whloh oontoinod th* 
oltornotivo*. Thi* provided th* a**r with on innodiot* roforonet. A 
•ooond a*o at tha Itgtnd wo* to provid* intornotion whan, in inter* 
version* of DASS, th* grophio* display ooald b* printed direatly to * 
block ond whit* printer (Reasons {or not aslng * color printer i* 
prinorily eoet (Ref 4:11*). 

loproving Eslstlng Dl»ploy» . Th# orlginol version of th# DASS **#d 
* 1 phonon#ric chorootere in drawing th* graph* (Ref id). Thi* wo* beeoeee 
th* eospater that the original version wo* ran on did not hove on 
available, interoetiv* graphic* eopobility. In addition to th* ot# of 
eharaoter* in graphs, alternatives vsre labelled by alphabetical 
characters (that is an A represented th* first alternative, B th* 
seoond, ond so on). In th* enhanced vereion, th* alphanonerlo graphs 
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viti tiflieii with line* tad alternatives war* colored and rapraaaatad 
ly linas or bars. An appraeiation ol tha didarenoes can ba aaan In 
Figures 4 and 3. 

Regarding tha display lor tha sensitivity analysis, vary ltttta wan 
naadad to Inprovo tha diaplay. As ean ba aaan la Figure 4 ( ohangas warn 
to labal which typo ol aanaltlvlty analysis was nsad (only ona typa of 
analysis was posslbla In tha original version. Saa tha saotlon on 
sensitivity analysis). In addition, note that tha objeotive/attribute 
tntornation is present in tha newer diaplay. Tha original vatslon did 
not have this inlornation with tha graph; however, tha analyses was 
normally dona at a printing tarninal whioh raoorded all appropriate node 
("formation used in tha sensitivity analysis. 

While tha diaplay (or tha sensitivity analysis ehengad vary little, 
tha display (or inlornation regarding a node ohangad greatly (Figure 3). 
In tha improved version, a wiring diagram was employed. Tha reason (or 
using a wiring diagram was that decision makers, especially military 
daeiaion (rakers are ustd to sating hierarchies! structures in wiring 
diagram lormats as in organisational charts. In addition to tha wiring 
diagram, individual ooior bars wart used to denote tha values ol each 
alternative at each tub-objectlva. The bars provide, at a glance, a 
comparison among tha atarnativas. Tha bars ware drawn vertically as 
opposed to any other dlroction baealusa linst drawn vertically represent 
tha most accurate and tha most orisp represent ation ol the data bated on 
tha Apple eomputar electronic* In addition, the wiring diagram (botes 
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and Mini) was drawn in grim in iriir to inprov* iliwitg. 

Adding Wow DIipUm . Display* that wort inproved la tbo oabaaood 
tirilm oi tho DASS worn oriontod towards tbo output of tbo progna. In 
addition, attention was diraotod towards esploltlng color graghlii on 
inpnt. Tbo challenge of using graphic* for input is to bo flotiblo and 
robnot to o*or* error* as well a* piotorally displaying tbo inpnt data. 
Two areas wore idontifiod as eandidatos for this typo of display. They 
wot* tbo hloratchioal structure itsolf and th* worth values of tbo 
attributes. 

In tho original version of th* DABS, th* hierarchical tro* was 
input on* span at a tin* wh*r* th* eonputer would display tha title of 
th* parent objective and th* user would enter the innedlate descendants 
In the enhanced version, th* can* infornatlcn is asked tor, but through 
a tree diagran where th* user inputs the title of th* descendant* 
(Figure A). As can be seen in Figure 4a, th* parent objective is at the 
top of th* wiring diagran with a boa for th* first desoendent. As 
innedlate desoendent* are added, new beaes are drewn awaiting input 
(Figure 4b,cl. When no nor* descendants are to be added, th* progran 
asks for desoendent* of th* first *ub-»eb jeot i v* (Figure 4d>, and so on. 
Again, th* wiring diagran schen* was used to provide a sotting that 
would be eonfortabl* to th* user. 

Tor entering worth values, th* original version of DASS appraised 
th* user of th* previous alternative values oi the attribute and asked 


(or th* new inputs. This nathod of input is not bad, sspeelally when 



























••tut worth tunotion* to transform t uu«t» sueh it Ollm end hMti 


into worth film. However, when a diraot worth iitliiti needs to bo 
•ado (or an attrlboto. a visual eoaparisoa oaa bo oaotol. Maneo tho 
dliflif shown to Figaro 7 was developed. As ean bo oooa Is tho fignre, 
tho estreat raise »( tho oltoraatiroo aro proooatod both numerically and 
ta bar graph format. Tho uoor than inpot« tho now valoo la tho bos at 
tho bottom of tho ooroon and open coaptation, tho ooapotor ooeverts tho 
oatrp Into a bar aad plaaoo tt oadar tho NEV VALUES aroa, ia the 
altoraattoo'o color. Thao tho naaorieol iapnt oalooo aro transformed aad 
spatially displayed ao aa aid in rains lntorprotation. 


VALUE: A(HOST BtACX EtZIT NtEZT <ESC> 
HUH 1 1 | SUAIVIABLE 

OLD VALUEB NEV VALUES 

□ □□ 

ALTERNATIVE 

OLD VALUE 
NEV VALUE 


Figaro 7 Attrlboto Value Input Display 
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Addition!) Sensitivity Module 


Thi third till incorporated into tho OASS propria was to provide 
idditiontl capability in tho interactive sensitivity mlfili, Tho ohiof 
advantage of tho original DASS mi tho foot tho sensitivity analysis 
could bo dono In « real-time baoio (that it, while tho aoor i* at tho 
oonoolt). In tact, tho major drive tor all daelcion support systems is 
to give tho nsor immediate answers to "what if typo questions (Rot: 
4:112,3:31). In tho original work, any objective or attribute *:i» oosld 
ho varied on tho basis of its overall eontribntion to the hierarchical 
strsotsro (Rat H:Programmer's Hanual:Z-4>. The revolting ohangas in the 
valoo of the "roof node for the alternatives provided an indication of 
how sensitive the incumbent best alternative would bo if the overall 
"strength" of a particular objective varied. 

As one oan easily guess, the types of "what if" questions oan bo 
both infinite in number and eitrenely difficult in oomplesity. However, 
two additional "what If" areas were investigated in addition to the 
cumulative weight model presented in the original and enhanced versions 
of the DASS. They were (1> what happens to the alternative seleotion if 
the relative weight of a particular node changes value among its 
siblings*, and (2) what happens to the alternative selection if the 
value of an alternative changes for a particular e • tribute) 

Sensitivity of Relative Velaht Vhat we are esamining is the ehange 
in alternative values at the "roof node based on a change of a relative 


If 










weight i epan anywhere in the tree. Note that the 'reef node in the 
overall objeetlva ef the ttee atruoture. 

In perterning the analyeia, we need te look at hew tha valuea el e 
node ie ealenlated. Nete that far any node, tha valua of an alternative 
for that node le Juet the een ef the prodoete of eaeh tanediate 
deneendent alternative vaine and ite relative weight er: 

VALUE(PARENT NODE) - ^ RELATIVE VEICKT(DESCENDENT)*VALUE(DEBCENDENT) 
all 

immediate Ill 

daaeandantf 

Thee we ean vay that a change in the relative weight el any node 
will enly afleot the value ot the paren* neda. In addition, note that 
the value ol any node i* enly dependent on ite own inaediate deeeendente 
and not on tha relative weight of the node itaelf. Therefore, in 
eeaainlng a change of tha relative wieght of a node, the new alternative 
valnee ot ite parent need to be calculated and eobotitotad for the 
Ineombant valnee of tha parent. Thia eobetitntion will.then affeot the 
value of tho "rout* node. 

Subctitution ot tha new valnee into the "rort“ node, fortunately ie 
atraight-forward. Note that the vaine contribution of any node to the 
'roof node ie )net the product of ite vulue multiplied by ite 


cumulative weight or: 
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NODE'S CONTRIBUTION TO THE ROOT NODI - CUMULATIVE VEICKTtKODE) • 

VALUE (NODE) IE1 

lino* th* oonolatlve weight el th* parent is onehanged, the eheng* 
in th* vela* of th* parent can b* added to th* "root* nod* of: 

NEW VALUE(ROOT NODE) - OLD VALUEIROOT NODE) • 

(CUMULATIVE VEICHT(PARENT) • OLD VALUE(PARENT)> * 
(CUMULATIVE WEICHT(PARENT) » NEW VALUE(PARENT)) 

III 

A question her* arises as to how to distrlbsto th* regaining 
relative weight to th* nodr's siblings. An arbitrary rale was wade to 
keep th* relative weights of th* siblings at th* sane proportions as was 
in th* inooabent sitoatton. For sample, let a* have three objeetivs 
nodes A, B, and C. Let each of these obfeotive* have the relative 
weights of 0.7, 0.1, and 0.1 respoet1**1y. It w* eheng* the relative 
weight oi A iron 0.7 to 0.1, then nod* B will haeo a relative weight of 
0.113 and nod* C will have a relative weight of 0.047. If w* varied nod* 

A iron 0.7 to 0.4, nod* B will have a relative weight of 0.247 and nod* 

C 0.111. Not* that th* ratio of th* weight of S to C i* unchanged in all 


Thu* th* overall procedure in esaninlng th* effect* of a change in 
a relative weight of a given nod* on th* "root” nod* is: 

(1) Piok a new relative weight of th* node to be rtanined. 
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(2) Redletrlbut* the remaining relative weight* (thet 1* one 
Bins* the reletive picked In etep (2 > > among the node's 
siblings. 

<32 Recalculate the valu* of the node** parent using the new 
relative weight* eelected In etep* (1) and (2) cling 
equation til. Net* that the value* of the nod* and It* 
sibling* are unchanged. 

(4) Substitute the now lain* of the parent nod* in place ef 
it* old value at t)* “root* nod* using aquation (II. 

8en««tlvltT of Attribute Valu* . The objective in this senitivity 
rueiysis 1* to eiaaln* the effect of varying an attribute alternative 
vali* on the “root* nod*. 

In this analysis net* that varying a valu* of an alternative doe* 
not affect the values ef any other alternatives tindepend*-.;* among 
alternat i«e«) ■ In addition, not* that ohanging value* does not affsot 
the tree struotur* in either 'he cumulative or relative weight*. 
Therefore, a change in the “reel* nod* oan oocur only for the 
alternative varied and then by the amount of the oumulativ* weight of 
the a 11 r ‘ bu t* or: 

NEW VALUE(ALTERNAT1VE,ROOT NODE > ■ OLD VALUE:AL7ERNAT!VE,ROOT NODE) 

CUr.dLATIVE WEIGHT!ATTRIBUTE) • 

INCUMBENT VALUE (ALTERNATIVE,ATTRIBUTE) 

CUMULATIVE WE 1CHT(ATTRI BUTE) » 

NEW VALUE (ALTERNATIVE,ATTRIBUTE) C4J 

Not* that varying th* valu* of an alternative lor an attribute only 
aff*et5 th* valu* of tha "root” node for that alternative and th* valu** 
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of th* "root" nod* lot *11 other alternatives *r* unchanged. 

Thu* tho prccedur* in aiaaing th* offoet* of ehanging «n 
alternative value for * given attributo 1*: 


(1) Soloot a now value of th* attrlbot* for a given altornati** 

<ZI Caleulat* the now value of th* "root" nod* tor tho 
given alternative «*ing equation tdl. All other 
alternative value* for th* 'root" nod* will renain 
■nohanged. 
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The first problem dealt with determining th* bait production 
technique to develop tritium. Th* group studying th* problem was ontir* 
as to which of fear alternatives (3 di(f*r*nt modifications or t ntw 
facility) would b* beat baa*d on several competing objectives. 

After aoa* discussion, th* group decided that th* problem could 
beet be decided aeing th* worth aeeeeement procedure. They deoided on *n 
hierarchical etructure ehown in Figor* 3. Baaed on thia partionlar 
atroctor*. the group developed weight* and vain** for all applicable 
node*. At that point, th* hierarchical system was entered into th* DASS. 
and evaluated. 

Th* revolting vaio* for the overall objective (3CST METHOD) is 
shown in Figor* V. Th* figure shows a consolidation of all nodes into 
th* total line in the figure. 

Based on thee* results, questions were raised regarding th* 
sensitivity of each sub-objectives immediately descendent to th* overall 
objective namely: cost (COST), production methods (PROD METH), technical 
risk (TECH RISK), tins (TIME), and public reaotion (PUB REACT). 






Tritium Production Tree 



























BEST METHOD 
rACTOR 

IN-CORE 

OUT-CORE 

SHtELD 

MEU PLANT 

COST 

77.00 

• 4.03 

• 7.43 

43.00 

PROD HETH 

33.00 

33.40 

33.43 

100.00 

TECH RISK 

73.71 

77.73 

71.40 

• 0.40 

TIME 

13.73 

IS.S3 

74.33 

34.00 

PUB REACT 

43.20 

43.30 

43.73 

St. 10 

TOTAL 

(4.34 

70.10 

41.34 

74.71 


Figure 7 Results ter Tritium Production 


Thue a (tnllltllf mtlpli on Iho obhIiUti weight were conducted 
using the DAS8 program Ior oseh of these nodes. 

The rosalts of sensitivity analysis indicated that ehanglng the 
emphasis on oost <*'t '.34 to 0.30; or production faotors fro* 0.0 to 
0.40; or tins from 0.14 to 0.10 ohangsd the resolt of tha best 
alternative from a new plant to one of the modifications. However, 
changing the emphasis on technleal risk or tine over the entire range of 
cumulative weights tor these sub-obfeotivas did not slter the selection 
el the best alternative. Therefore, based on the sensitivity of the best 
eolation, especially with regard to cost, production factors, and tins, 
additional analytical investaent should be made to insure the accuracy 
ai*3 stability cf the entered weights and values. 

the better of two new 
The teaa studying this 
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perticaler identified two eenpeting sab-objectivoe end therefore decided 
to one worth eseesemont vie the DASS. 

After diseasefng the problem, the etedy teen developed tho 
hiererehioel tree otractare shown in Figaro 10. 


BEST SYSTEM 


EFFECTIVE 


TIME ON TGT 


TGT NEG 


Figaro 10 Advenoe weapon System Tree 

■eeed on thi* structure, the teen then determined the epproprlete 
weights end velaee end entered the dete into the DASS program with the 
reealte ehown in Figaro 11. 


BEST SYSTEM 



FACTOR 

SYSTEM 1 

SYSTEM J 

COST 

IS.00 

53.00 

EFFECTIVE 

it . 00 

71.5 

TOTAt 

71.40 

it.70 
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miillill; of tho boot alternative (Bystea 1) if tfco weight of eoot 
(COST) varied. Uoing tho BASS, tho sensitivity antlyels ohowod thot 
ftystoa I woold bo preferred if tho ooot woro to bo rodoood is iaportanoe 
froa 0.40 to 0.10. Thoo additional offott to further define the weights 
osod in this otrnotsro at; not bo fruitful. 

An additional question was raised as to tho offoot of varying the 
relative iaportaneo of tiae on target (T1HI ON TCT) to its sibling, 
nuabor of targets negated (TCT NEC). Tho resslto, uoing the BASS, 
indicated that Systea 1 would bo tho proforrod alternative regardless of 
what tho rolativo iaportaneo was between those two nodos. Therefore, 
further refineaent of those weights would not bo aeanlngful. 











V Conclusions end Recommendations 


Hrnrny objectives war* pursued In this research. Th*«* objectives 
war* tb* laplamentat ion ot tha DASS an a microcoapotat, th* gia of ,oi 
computer graphics for inpat and outpat displays, and th* addition of 
sensitivity analysis modules in th* DASS ttaalf. Thaaa objectives will 
b* addraaaad individually. At tb* oonolualon of thaaa comments, a list 
of racaaaandad attentions to this thasls will bo prasantad. 

Tb* first oonolvsion that can b* drawn is tkat tha DASS can bo 
adapted to a aicroeoapatar Inoludlng ooapater graphics. Prior to this 
work, DASS was iaplaaantad on a aioroooapatar, but was onabla to ns* tha 
aicroooapntar* a graphics capability. This work iaplaaantad tb* DASS and 
was abl* to provide gtaphles sopport. In addition, options not available 
in th* aioroooapatar pragraa, displaying a nod* and pruning th* 
hierarchical tra* war* installed under this enhanced version o! tha 
DASS. Thaaa aeooaplishaants war* priaarily do* to tha ns* of a ooapilar 
language, PASCAL, which enabled th* prograa to b* asaontad in a aueh 
saallar aaaory than tha previous version. In addition, tb* ns* of 
segmented procedures enabled th* program to b« asaeotfd saoeassfally 
even though th* program was auoh larger than th* actual eoapatar aaaory. 

A second eonolasion is that conputar graphics does enhance tha 
outpat of th* DASS. Color graphics provided additional visoel emphasis 
to those figures displayed in th* original version and naw insights to 
those graphies nodal** added. Th* as* of eolored bars in aany displays 
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•Hew the sect to interpret ggobirti «t • glance: • job graphice dots 
boot. 

The third oonoluslon reached io that sensitivity analyses (boot a 
nodo'o rolatioo weight or an alternative attribote value eaa he 
accomplished. In (act. the sensitivity analyses in thece areao were 
fairly etralght forward. Faete that wade the problem otralght forward 
were the assumptions of the worth assessment model ooneerning linear 
additivity, attribote valve independeneo. and oenotant marginal rate of 
eobet1totien (Ref 14:19-Z0>. 

While thio work made advancement in oombining teehnologiee 
relevant to deeieion analyoie, mooh farther work needo to be dene. Five 
areao are recommended. They arc: 


* Creating worth value function! to traneform maaonreo into 
worth valoee. The current program only accept! worth 

valoco. 

■ Enhancing graphical divplayo. Additional graphlce could be 
added to the program in the area of multi-node dioplayo. 

* Improving node reteranoe nomaao1 at ore. Thl* could be 
done by eaamining tha merit! of tho nodi reierenoa number 
lyetem uead to identify a particular node ai opposed 

to poicibla near oriented method (euch ae the title of the 
nodee thamielvei). 

* Eitending the lenittivlty analysis to two or more 
objeotivee/valuei and provide graphical cupport. 

* Efanine the neriti of audio input! and output! in the 
DASS. 


In eonoluiion, decision analysis is coming of age and new 
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technologies suoh ts nioioooapoters end color griphios ore beeoalng 
10 * 411 } inlUbl*. The future holds s doable challenge for Ihoao who 
dors: to proeido answers to questions which in eoaples. vogue, tad 
difficult, sad to present those answers in the aost aeeningfal sty io 
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Cloaacry 


Not* - tb* glomty will rtlar to th* following itupli 
tro* hierarchy to dcaonatrat* to** of th* conoopta dafinod. 
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AAAA 


AACA 
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AAAA 


AACA 





(traaatraotor*) <dat> (tractor*) 


Th* Staple Hierarchy 


backllnk - this it a data atruetcr* eenoapt. Th* nod* whioh ptootda* a 
nod* in tha data (tractor* i( backiinked to that noda. In tha 
atanpia, nod* <AA> la th* backllnk to nod* (AB> and nod* <A> 
ia th* backlink to nod* (AA>. 

branching nod* - a nod* (or ebiactl**) which haa at laaat on* 
doaoandant . 


o*It tor nod* r*cord> - rafar* to th* block of data aaroclatad with a 
nod*. OASS oaaa call* to atora th* pelntara and th* data (or 
aack nod* Tha poln'ara atorad ar* th* downlink pointer, tha 
oroatlink pointer, and tha backlink pointer. In addition 
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y (cant) 


Infomation relating to tha node aaoh at tho node digit, the 
relative weight, tha canolative weight, and ail alternative 
ulili ate loot tad in a call. 


ehildran - this is s cancapt ot hisrtrehias. Tha children of a nods at* 
those .''odes which are one level down (ran that node. In the 
esaaple, nodes (AA, AB) ate children at node (A) and nodes 
(AAA,AAB.AAC) are children of node (AA>. 


crosslink - this is « data structure concept. The first sibling node 
which is added after a node is that node’.* crosslink node 
(erosslinkod to thai node). In the eianple, node (AB) is the 
crosslink to node (AA) and node (AAC) is the eroslinfc to node 
(AAB). 


eamalative weight - this is the weight of a node, relative to tha root 

node. This is a measure of the contribution of the node to the 
entire hierarchical structure. The canalatlve weight is equal 
to tha product of the relative weight of the node and the 
eunalative weight of the parent (the cumulative weight of thw 
'root'* node is unity). 


data node (also attribute) - a node which has node descendants. 


descendant - a node which cones after a given nods in the hierarchy. 


depth-first soaroh - a synthesis of data and logic structure concepts. A 
depth-first search traverses a tree by: 

(1) adding new levels first (if possible) 

(2) then visiting tlie crosslink nodes 

A depth-first traversal of the sample would vist the nodes n 
the following order: 

A AA AAA AAAA AAB AAC AACA AB 


level - this is refars to the deptl. the node is Iron the "raot" node. 

Tor eianple, node (A) is a level I node; nods (AAAA) is a 
level < node. 


nods - this is an elensnt tn the hierarchical o' data strseture. All the 
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Glossary <oont) 


elements In th« impli in nodes. With regard to worth 
assessment, nodts osn bo objectives or attributes depending on 
thotr position In tho troo. 


node digit - Is tho nunbor which ststes tho position of t nods on its 
sptn. In tho simple, tho nods digit ot nods AAB is 2. The 
nods digit of nods AA is 1. Tho nods digit of AACA is 1. 


nods rsfeconee number (NRN) - tho vector which points tho poth through 

the troo from tho iop down to * porticulor node. Eoch nods hts 
o unique URN. Tho NRN is mode up ot node digits. For eeoh 
level down, on additional digit must bo added to identify a 
node. For oiampto node (AAAA) has a NRN ot 1 1 1 1. Node 
(AACA) has an NRN of 1 1 3 1. Node <AB> has an NRN of 12. 


parent node - this is a oonoept of hierarchies. The node directly in 
line one level above a node is the parent node to that node. 

In the eiample, node (A) is the parent of nodes (AA) and (AB). 
Node (AA) is the parent of nodes (AAA), (AAB) and (AAC). 


relative weight - this is the iaportanee of the node relative to its 

siblings. These weights have the value between aero and one, 
and the sum of all siblings of a particular parent is unity. 


root (or "root 11 node) - this is a concept of hierarchies. The root node 
is the top most node in the hierarchy and represents the 
overall objective of the hierarehical structure. 


sibling - this is a ooncept of hierarchies. Those nodes which have the 
same parent node are siblings. In the eiample, nodes (AA) and 
(AB) are siblings as are nodes (AAA), (AAB) and (AAC). 


span - this is a comoept of hierarchies. This term is associated with 
any given set of siblings. For vaxmplt, nodes (AA) and (AB) 
are on a span. 

value - this is a conoept of worth assessment. Value is the worth of a 
measure ol a particular attribute for a given alternative. 
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Th• Decision Analytic Support System (DABS) wet originally 
developed by Bract V. Morlan to provide user oriented automated support 
to decision analyses where a deterministic, linear additive, and 
hierarchical dsolsion structure eiists. This version of the DAS3 was 
specifically written for use on microoomputers, in partioaiar, the Apple 
II. Machine requirements for running the DAS8 is i4X memory (Apple II) 
and at least one 5 1/4 inch floppy disk drive. In addition to those 
iunotlons available in the original DASS system, additional features 
have been added. These features include eapanded sensitivity analysis 
capability and computer color graphic displays. 











Zvsty loltwtti tool has a aat o( eapabtllttoa and liaitatlons. The 
DABS la no ssception. 

Caoabi111lta 

Tha OASS la oapabla of analysing a daeiaton analyala structure 
which la d*tarainistio, linaar additive, and hiaratchieal in natara. 

Tha prograa allows for tha us* to inpot interactively tha traa 
structure, relative waighta and attribota Tainan through tha oaa of 
various prograa options. Tha input is anhanotd through tha uaar of 
eoaputar ganaratad graphics. Further, the prograa autoaatioally 
caluolatas tha cuaulativa weight* of all nodes (also known as oollasping 
th* traa), and deteraines tha eoaposit* value of tha ‘root* or overall 
eblaotiva nod* as well as all intaraadiata nodes based on th* attributes 
in th* tree structure. Th* systaa also allows th* user to interactivaly 
ascertain th* status of any noda. In addition, data are graphically 
displayed and incorporat* color for quick data eianination and 
evaluation. 

Tha aost inportant faatur* of the DASS is tha ability to conduot 
interactive sensitivity analysas iron a variety of parspactivas. Th* 
first perspective is with regard to tha changing of th* cuaulativa 


weight of a nod* to the overall heirarohical structure. The second is to 









Milsiti the effeot on the ooloetion of the boot alternative given 
pertebatic of tho relative weight of i node aaong ito tiblingo. Tho 
final para, «©tive it to asaaine the offoet on alternative loioctioa 
batad on ohangot in value fot a given systea attribute. 

Lint tail one 

There are teveral liaitations'that are associated with this systea. 
The liaitatione are aeeooiated with both the aodel being iapleaented and 
the aaohine on which the aodel it being iapleaented. 

Ont aodel liaitation it that the entriee for the attribute valuet 
autt be in terae of worth. That it, the aapping of the attribute 
aeaturee to the worth value have already taken place. 

Another aodel liaitation it in the batlo aetuaptione of the linear 
additive funation used in the aodel. Thete aaauaptione are attribute 
value Independence and aarginal rate of aubatitution. Thete aaauaptione 
are especially critical when conducting sensitivity enalyse* when large 
deviations are aada. 

An additional liaitation with regard to the attribute values it 
that they all aust follow a "more it better" philosophy <that it, the 
higher the value the better) or a "lass is better" philosophy (the lower 
the value the better). 

Machine limitations are due to the aeaory constraints of the Apple 
systea (or any microprocessor systea tor that natter). Thus the 


following restrictions should be observed: 













MAXIMUM NUMBER OF NODES: IDS 


. MAXIMUM NUMBER OF LEVELS: S 

0 

MAXIMUM NUMBER OF SYSTEMS: S 
MAXIMUM NUMBER OF NODES ON A SPAN: S 

In Addition to thooo "oparatlonai” linltitiona, that It limitations 
whan running tho program, tharo art othor limitation* oonoorning tho 
numbor oi toparata data tata. For tha DASS program only thro* (1) data 
tott oan ratida oonourrantly with tha DASS program whan running a tingl* 
disk systam. II mora than a tingla diak syatam it ntad, tha aaoond disk, 
whloh eonld bo ntod at striotly a data disk, oan oonlalu np to 11 
toparata data tats, aaeh tat maating tha numarioal limits spteifitd 








Tha tar* "input” rafara to all data which ia put into tha program. 
Input eomea iron two aourcaa: (1> uaar'a interactive raaponaaa to 
program guaatlona (prompts), and (I) previously antarad and atorad data 
(ton disk files. When DASS raquiraa any input iron tha uaar it will 
writa a prompting aaaaaga to tha eonaola. 

Program Control 

Tha program ia oontrollad by uaar raaponaaa to quaationa or by naar 
aaiaotion from a manu. Salactiona ara mada in ona of several waya: (1) 
uaing a thrco charactar anamonio, eonoiuding by dapraaaing tha RETURN 
kay (aalaoting a major option), (2) uaing a aingle lattar to aalaot from 
a tabla of sub-options, (3) by praaaing tha Y or N kay in anawaring 
yaa/no quaationa poaad by various option*. 

Eaoh major option ia diccuctad briofly in tha following flow 
aaetion concurrent with a aimpio oiampla. Compiata diacutcion* arc found 
In tha OPTIONS caotlon. 

Conventiona 

In tha diacuaalon* to follow, all eomputar input and output ia 
oapitaliiad, aacapt for output variable value*, alternative lilting*, 


nod* referanoa number*, and option name*, in whieh oa*a they ara 











aeparatad if leaa-than and greater-than Cigna ( (isaia) >. 

Tcrainaloaf 

Tkia program haa aoae epaoit'.e tarna with regard te the tree 
atruetore and elenenta within it. Thaaa tarma ara defined below. The 
reader la urged to rater te hppendii i ot thia thaala. 









III. PROCRAM FtOV 

The following discussion of tho on of DASS io built around Iho 
hierarchy shown in Figuto 1, which was alsc used in Captain fforlan 1 ^ 
wook. 

In tho hsirarchy shown, tha question that is being answered is 
"which of the available systems (F-4, F-1S, and F-lll) should we deploy 
to a forward base?". The attribute that we wish to determine is "the 
best plane”, which has been described in terms of the remainder of the 
tree. At the point when we begin to use DASS, we have a strootnre 
(tree), tentative weights for each node and values for each alternative. 
The values for each alternative have been normalised to fall between the 
values of 0 and 100 for eaoh attribute (the bottom-most node(s) on a 
liven branch). In addition, the values are consistent, that is to say, 
that the eitrenes (or all nodes mean the same thing (in this oase, all 
data nodes with la-'ge values mean that the particular alternative is 
very good- more is better) (Figure 1). 

When the DASS program btgins ((touting, OPTION SEL (sea (SECTION IV 
for details) is automaticaliy aiccuted. Typing NEW to the question as to 
whether the file name entered is a new (Me or not will result in 
OPTIONS ATT, TTL and SPA to be automatically ((touted. 

Option ATT prompts the user to enter the characteristic that the 


attribute values will have. Any entry sta.ting with an R will be treated 






























tEV option to insure that tho tree otraetoro inserted under SPA (above 
paragraph) to what is doslrad. If various nodes nood to bo oithor 
tnsortad or deleted, tho options NOD (for adding nodos) and/or PRU (for 
doloting nodos) shoold bo used. 

Vhon tho asor is satisfied with tho troo straetnro. tho user should 
than osooato option SYS in ardor to antar tho alternatives (systems) 
that ars to bo oonsidorod by this troo straetnro. 

Nest, the user will need to one tho WVC option to inpat tho various 
relative weights of descendants on a given span, and to input tho values 
of tho data nodos. After entoring tho appropriate weights and values, 
tho tron should than bo calculated in order to determine tho relative 
rankings of tho alternatives under considers!lrn. 

After ositing tho WC option, the user will aoro than likely want 
to eiaaine the rssults. The prograa has two main aethods to acooaplish 
thiv. Those are options DIS and NUN. 

Option NUN gives a nuaerical review of soao or all nodes in the 
data structure. Along with the relative weights and cumulative weights 
of a given node (and node reference nuaber), the values of the 
alternatives (either entered or calculated) will be presented. The 
review can be routed to either the printer or the console (aonitor). 

Option DIS gives a review, but only for a specified node and that 
node has to have descendants. Information given in option DIS is similar 
to that in option NUN; however, option DIS gives the added option in 
providing a graphical display of the node and its descendants. 








On* of the soft important aspects of th« DAS3 system is its 


capability to provide sonslti .y analysis. Thv sensitivity analysts 
that are available with this vorsion of DASS allow thv variation of tba 
cuBolativv weight for a particular nods, the variation of t.,» rvlativo 
weight for a particular node with relation to its siblings, and the 
variation of the value of an alternative on a data node. It is through 
sensitivity analysis that portions of the tree structure can be singled 
out for further investigation. In addition, care -eust be taken in 
perforsing sensitivity analysis on the cumulative weights doe to the 
nature of the heirarohy. That is, all parts are linked together. Changes 
in one area say impact assigned values in appearently unrelated areas. 

Another option that is available to the user is STA. Tnis option 
provides current data concarning the tree structure which is ne:tssary 
to insure against esceeding the capacity of the various data files 
generated by this program. 

The final option, and th« most important, is the DON command whioh 
allows the user to elegantly eiit the program. This program sequentially 
eloses all open files and returns control to the disk systsm. 


Delating old flits 

Current limitations of the DASS system, only allows for three data 
seta to eaiat on a single d.rk (see LIMITATIONS). Thuc the time will 
come that the user will want to deleta old files to make room for new 
onei. In addition, given a very long length of time, the user may forgat 









the title et ion files anil would thou have to rooort to getting a bow 
diet ot re-entering the data (ilea. The following gieee a eery brief bat 
complete dieouceion a* to how to remove or get the names ot old files. 

When in the Disk Operating System (DOS) mode, depress the F key. 

Yon will be in the DOS mode when yon just torn on power to the maohine 
with the DAS3 disk in the disk drive, or after eaiting the DASS program 
via the DON option. This will invoke the FILER program which 
accomplishes all disk operations. When assented, the console will 
display a line of characters which are various options available to the 
FILER program. 

The first option that can be assented is done by typing E. This 
invokes the direotory list command which will display all diskfiles that 
are on the disk. After pressing the E key, the computer will respond 
with DIR LI STINC OF WHAT VOL t. At this time enter an asterisk (*) and 
depress the RETURN key. The results will be similar to that shown in 
Figure 2. 

The first column indicates the names of filss currently on the 
disk. Those files which end with SYS.DATA or NODE.DATA represent the 
data sets for various tree structures which begin with the first three 
letters preceding SYS.DATA or NODE.DATA. If the user were using file 
names when eseeuting the DASS program less than three letters, the 
letters X will be used to fill in the space between the user entered 
filename and three characters. 

In order to. remove a data set, depress the letter R. The computer 
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will respond with REMOVE?. The user should then antsr ths fils ntaa that 
is te be removed (e.g. ALPSYS.DATA) and eonetuds by depressing ths 
RETURN hag. Ths eomputer will than rsspend with a serification message 
and tha osar should rtspond by dsprassing Y for yas or anything alas far 
no. In aithsr 


LEES: 






SYSTEM.APPLE 

12 

2 i 

-Jul«?9 

i 

Data 

SYSTEM.PASCAL 

34 

4 

-May-77 

38 

Data 

SYSTEM.MISC1NFO 

1 

4 

-May-79 

74 

Data 

SYSTEM.FILER 

2 t 

24 

-May-79 

7b 

Code 

SYSTEM.LIBRARY 

If 

10 

-No v-BO 

103 

Data 

SYSTEM.CHARSET 

2 

14 

-Jun-79 

149 

Data 

OASS.CODE 

St 

7 

-Jan-S l 

151 

Code 

ECHSYS.DATA 

1 

27 

-0ot-80 

207 

Data 

ECHNODE.DATA 

21 

7 

-.*an-8 1 

206 

Data 

ALPSYS.DATA 

1 

7 

-Jan-Bl 

231 

Data 

ALPNODE.DATA 

23 

7 

-Jan-81 

232 

Data 

BETSYS.DATA 

1 

7 

-Jan-Bl 

2SS 

Data 

BETNODE.DATA 

23 

7 

-Jan-81 

254 

Data 

< UNUSED > 

I 



279 


13/13 files, 1 

unused, 

1 

in largest 



Figura 2. Dirsctory Display 


east, control will ba raturnad to ths FILER prograa. Not* that if data 
sats ara to bt removed, both tha SYS.DATA and the NODE.DATA Bust ba 
removed (a.g. ALPSYS.DATA and ALPNODE.DATA). IN ADDITION, tha user must 
aiaouta the K option (compress tha disk! in order to aake room for 
subsequent files (the file structure tor this computer dictates that an 
unused disk space bigger than the file sixe be available in order to be 
able to create a new files under DASS). The user can do this by 
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dapraaaing the X key and raspond to the aubaeqoent question with an 
asterisk (*) and depressing tha RETURN key. Another question will ha 
aakad aa to whathar all bloeka ara to ba eoapraaaad and tha anawar is 
Tea. II tha user inadiartant 1y dapraaata another kay, othar aaaaagu 
will oaour. Tha uaar at thia tiae ia urged to siaply daprasa tha RETURN 
kay and raturn to tha FILER aeon. 

Altar aeeoapliahing tha daairad teaoeal oparattena, tha seat oan 
aait tha FILER prograa by dapraaaing tha 0 kay which will return tha 
«sat to tha DOS aano. Tha uaar can than amenta tha DASS prograa by tha 
aethoda daacribed praaioualy. 
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THE MAIN MENU 

MONET 1: ATT 01S DON MOD NEW NUN PRU REV SEL 

SEN SPA STA SYS TTL VVC 
OPTION! 

SITUATION: Altar tha program has baan initialised (I.a. 

asaeuting option SEL>, tha main menu will ba displayed 
indicating all options available under tha currant version 
of DABS. 

REQ ACTION: Entar tha thraa lattar option and tha RETURN key. Tha 
computer will raspond with prompts assooiatad with that 
option. Entaring anything alsa will result in PROMPT 1 
haing rapaatad. 








OPTION: ATT (ATTribote) 


USE: Thie option io aood to enter a label tor tho doeioion 

whieh io being good. Reaoonabla rocponooo oro 'VALUE* <*oto 
io better) end * REGRET* (looo io better). Tho rooponoo 
io lator good to proapt tho floor lor tho valueo (or tho 
alternativee being concidorod and indicating whieh alternation 
io tho boot (highoot or lowoct) in tho eeneitivtty analyoie. 

toooootottooa CAUTION 

1. ANY ENTRY STARTINC WITH THE LETTER R WILL BE TREATED AS 
RECRET (LESS IS BETTER) IN THE SENSITIVITY ANALYSIS. 

ALL CHARACTERS STARTINC WITH ANY OTHER LETTEH/NUMERAL/ OH 
CHARACTER WILL BE TREATED A VALUE (HORE IB -BETTER) IN THE 
SENSITIVITY ANALYSIS. 

• iMtitiiiKi CAUTION oooetoooooooooo 

PROMPT l: ENTER ATTIRBUTE CHARACTERISTIC 

(RECRET OR VALUE)1 

REQ ACTION: Enter attribute charaeteriotio, ending with the RETURN 

key. Tho entry can be any length; howeoer, only the firot 


ten oharaotero will be retained. 















OPTION: DIS (Display a nod* with descendants) 

USE: Th i * option will display tho information at a nod* in either 

tabular or graphioal fornat. 

•••tliutiMitimnti CAUTIONS *•••»••••*•••*•«•*• 

1. DIRECTING THE DISPLAY TO CO TO THE PRINTER WHEN THE PRINTER 
IS NOT AVAILABLE WILL RESULT IN A PROGRAM FAILURE. 

• ••••••a************** CAUTIONS 

PROMPT t: ENTER NODE TO BE DISPLAYED... 

ENTER...NRN? 

SITUATION: Th* n**r i* a*k*d to *nt*r th* nod* r*f*r*no* nu«b*r, 

lor a nod* which ha* descendant*, and (or whioh th* 
display i* to tak* place. 

ACTION REQ: Enter th* NRN and oonolnd* by depressing th* return key. 
Entering a NRN which is non-eiistent will return 
control back to th* MAIN MENU. 

PROMPT 1-A: NODE IS A DATA NODE AND CANNOT BE DISPLAYED 
DEPRESS HETUBN TO CONTINUE 

SITUATION: Th* NRN entered in response to PROMPT 1 is not a nod* 

with descendants. 

ACTION REQr Depress th* RETURN key to continue th* program. 

PROMPT J: WARNING. 

TREE NEEDS TO BE <RE)CALULATED 
OUTPUT VALUES MAY BE INCORRECT 

PRESS ANY KEY TO CONTINUE 

















SITUATION: The tree itisetgri has bven toIKlid by either adding 


ACTION RCQ: 

PROMPT 3: 
SITUATION: 


or dolollng nodoo, or adding or delating alternatives 
and hao not boon re*computed since. This aiani that 
tho weights and values (or sons or all nodes nay be 
tnaoourats. Tho display, however, will not be 
inhibited nor can it be aborted. 

Depress any key. 

TUBULAR GfRAPHIC 

The user is now asked as to whether a tabular or 
graphisal presentation of the data is desired. The 
tabular (oraat is shown in Figure I, and shows the node 
entered in PROMPT 1 as wall as its imBediste 

desoendents. In addition, nuBerio values of each alternative 
(or all nodes are listed as well as the cumulative and 
relative weights. 

The graphical (oraat provides siailar intonation; however, 
the display takes on the aaptarance illustrated in Figure 
4 with the nuaerio values (or the relative and cusulativo 
weights being displayed and the values of the alternatives, 
in bar graph format, being displayed underneath the 
descendant nodae and to the right of the parent node. 

An a 11ernative/co1or legend is displayed on the upper 
left hand corner. 


I? 









ACTION REQ: Pras* Iht T or C kef for tko option desired. It T is 
depressed, PROMPT < will ooonr. 


It C ia depressed, Figaro S will bo displeped. Doprataing 
tap othar kap will ramlt in PROMPT 3 baing rapaatad. 

PROMPT 4: CCONSOLE PCRINTER 

SITVAION: Thia proapt will ooctir it tha T kap waa dapraaaad in 

raaponaa to PROMPT 3. Thia proapt datarainaa if tha 
review ia to aant to tha conaola or tha printar. 

ACTION REO: Dapraas tha C or P kap depending on tha option 

doatrad. Tha output will appaar an ahown in Figura 
4. If tha P kap la dapraaaad. control ia returned 
to tha MAIN MENU attar tha data la aant to tha printar. 
Dapreaaing anp othar key. will raault in PROMPT 4 baing 
rapaatad. 

PROMPT 5: PRESS ANY KEY TO CONTINUE 

SITUATION: Thia pronpt occur* after tha tabular diaplap ia produced 

on tha conaola. Thia eauaa* a tenporarp pause so that tha 
tha user can eitaine tha data. 

ACTION REQ: After aiaaining tha dlsplap, press anp kap. Control 
will ba returned to the MAIN MENU. 


it 













1 3 

COMBAT 

FACTOR F-4 r-13 F-lll 

AIR-AIR • SO 00 90.00 20.00 
AIR-CND « SO.00 20.00 43.00 
RECCE • 30.00 19.00 40.00 

TOTAL SO . 00 40.57 14.20 

FACTOR (VT) CUMVT 
AIR-AIR • < .42) 0.24 
AIR-CND • (.42) 0.24 
RECCE • (.14) .01 

TOTAL S.S7 


The above (oraat will bo toon if T it doprocood in rtoponoe 

to PROMPT 3 

Lino 1 (I 3) the NRN for the node entered in PROMPT 1 

Line 2 (COMBAT -) the label tor the node entered in PROMPT I 

Line 3 (FACTOR F-4 F-1S F-lll) liate the header for all 

iaaediate deseendent nodee and lists horizontally the 
alternative label* truncated to five character*. 

Line* 4-4 list* the labels of the immediate deseendent node* and 
lists values (inputted or calculated) for each alternativ 
The asterisk (•) listed to the right of the label 
Indicates the node as a data nod* (the bottom-most 
nod* for that branch). 

Lin* 7 (TOTAL SO.00 48.57 34.28 ) lists the value of each 

altrnativ* for the nod* inputted in response to PROMPT 1. 

Lin* 4 (FACTOR (V. UHVT) lists the header, again 

lor the m * descendants. The (VT) is the relative 

weight *acn jl.ng (lines 7-11) agaist each other. 

The Cort«T is the contribution of each sibling (lines 
7-11) to the overall decision structure. 

Lins 12 (TOTAL 0.57) indicates the amount (relative to 

1.00) that the node inputted in response to PROMPT 
1 contributes to the overall decision structure. 










□ Da DoD 


The above foraat Mill bo eoon If C to doprttod in response to PROMPT 

J. 

The parent node ie Hated at the top with the values calculated 
on its right. For each descendant node, its set of values are 
listed in bar graph foraat underneath. Nodes labeled with asterisks 
(*) are data nodes. Each bar is colored unique *j a particular 
alternative legend in the upper left hand corner. 

(REl VT) values in parentheses are values of each sibling 

against each other. For COMBAT (the parent node), its 
relative weight is in relation to other nodes 
(not shown in the display) at the parent's level. 

CUMVT indioates the overall contribution of the node to the 
overall decision structure. 






















OPTION: DON (DONa) 

USE: Thi* i* tha laat option atad. Thii algnala that tha 

uaar if finlahad with tha prograa and tha data iilaa. 

Tha prograa will oloia <aa*ai tha iilaa ineladlng 
appropriata inioraation oi tha traa ftroetara (naabar 
or nodaa, naabar of lavalt, naabar of altarnativaa. and traa 
aeoaraep). Tha pregraa will tarainata and tha DISC OPERATING 
SYSTEM aarn will ba diaplayad. 

aaaaaaaaaaaaaaaaa CAUTION 

(thara ara no caationa aaaoeiatad with thia option) 
aaatoaaaatataaaaa CAUTION 

« • 

PROMPTS: nona 













OPTION: MOO (MODity (listing tr»# itructur*) 


USE: Th1 f option is osod to Bodily ths trot on# nod* «t k tlBt. 

Eseh nods tddrssssd by node nftnnei noabor (NRN) is: 

(1> osskktsd. it nsessssry, dong with its prsds^sstors 
as nscsffkry, <Z) ohkngod in Ikbol only if it drskdy 
ssists. 


«(»(••*•»•(•((•>••(• CAUTIONS •*•«•»**•*«•**•«* 

t. ALL NRNs ENTERED MUST BECIN WITH 1. IF ANY OTHER NUMBER 
IS ENCOUNTERED FIRST, THE TREE STRUCTURE (AS KNOWN BEFORE 
THIS MODIFICATION) VILl BE PERMANENTLY LOST. 

Z. ADDINC MORE THAN FIVE NODES ON A SPAN IS POSSIBLE 
IF ONE OF THE SPANS CONTAINED IN THE NRN ALREADY 
HAS FIVE NODES. THE RESULTS OF THIS ARE 
UNPREDICTABLE AND MAY PRODUCE UNEXPECTED OB 
UNDESIRABLE RESULTS. 

3. ANY NUMBER CAN BE USED IN ENTERING THE NRN REQUESTED 
BY PROMPT I; HOWEVER, JF A GIVEN SPAN DOES NOT 
EXIST FOR A GIVEN NRN LEVEL, THE NRN NUMBER I WILL 
BE ASSIGNED FOR THAT LEVEL. 

t. THERE ARE NO CHECKS TO GUARD ACAINST THE OVERALL 

SIZE REQUIREMENTS OF THE TREE STRUCTURE GIVEN EARLIER 
IN THIS TEXT. THE USER IS URGED TO USE OPTION STA 
AT THE CONCLUSION OF THIS OPTION TO INSURE AGAINST 
INADVERTENT SIZE VIOLATIONS. 

KIIIIIHIIHIMIIM C A u T I 0 N s *»«•»»•#•*»»•***« 


PROMPT 1: ENTER . NRN? 

SITUATION: Th* ustr if «fk*d to *nt^r th* nod* r*f*renc« number 

whir* th* kdditlond nod* If to b* «dU»d, or th* '>b*I 
vf th* nod* if to b* chtngtd. 
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ACTION REQ: 


Enter the NRN end conclude by depressing the RETURN 


PROMPT l: 
SITUATION: 


ACTION REQ: 


key. Depreeeing the RETURN key without eny entry 
will remit In control being returned to the MAIN MENU. 

LAIElf 

The ueer ie eeked to enter the lebel of the node(e) 
directed by PROMPT 1. If the node elreedy eeiete, 

Just the lebel of thet node will be chenged. If 
the node directed by the NRN doee not exist, ell 
new nodes crested by the NRN entered in PHOMPT 1 
will contein the entered lebel. 

Enter the lebei of the node(s> end conclude by 
depressing the RETURN key. The node lebel nay 
be of eny length; however, only the first ten <10) 
cherecters will be reteined. Entering DONE end depressing 
the RETURN key or depressing the RETURN key without iny 
entry wili abort this option. Control will be returned 
to the MAIN MENU. If a label was inputted in response to 
PROMPT 2, PROMPT 1 will be repeated. 




OPTION: 


NEW (NEW data fill) 


USE: 


This option ie used to generate • now troo etraotere, 
either with th .• prooont file (it (lit name i* identical) 
or a now tilo naao. If tha (lie nave roqoaet bp the provpto 
ia identical to the tile currently in nee. the tilo will 
bo destroyed. 


SEE OPTION SEt FOR THE PROMPTS AND REQUIRED ACTIONS 



OPTION: NUN <NUM«rlc review) 


USE: This option if used to gonfrato a display of the tree structure, 

including tho nod* riitrinci number, nod* label, relative 
weight, cumulate weight, input values or calculated valces lor 
each node and alternative. 

ttmiumiiiiti CAUTION 

1. IF THE CTRL AND A KEY ARE DEPRESSED SIMULTANEOUSLY, THE OTHER 
HALF OF THE SCREEN WILL BE DISPLAYED. WHILE HOT CATASTROPHIC. 
A BLANK SCREEN MAY OCCUR WHERE DATA OR MESSAGES OUGHT TO BE 
DISPLAYED. IF IN DOUBT, DEPRESS THE CTRL AND A KEY 
SIMULTANEOUSLY. 

2. DIRECTING THE NUMERIC REVIEW TO CO TO THE PRINTER WHEN THE 
THE PRINTER IS NOT AVAILABLE WILL RESULT IN A PROGRAM FAILURE. 

CAUTION 

PROMPT I: A(ll S<ELECT 

SITUATION: Thie proapt determine* if the entire tree if to be 

reviewed (ALL) or if only a felected node i* to be 
reviewed (SELECT) 

ACTION REQ: Depretf the A or S key for the option desired. If the 

the A key if deprecstd, the rfograa will respond with 
PROMPT 2. If the S key if depressed, PROMPT i-A will 
appear. Any other key will result in PROMPT 1 being 
repeated 

PROMPT I-A: ENTER.. NRNt 
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SITUATION: 


ACTION REQ: 

PROMPT I: 
SITUATION: 

ACTION REQ: 

PHOMPT 3: 

SITUATION: 


ACTION REQ 

PROMPT 4: 


The S key hes been diprtnid in response to PROMPT I «nd 
the user it now nktd to input tho nodt reference nuahor 
(NRN) for which tho nuaoric review ie to teke pitoe. 
Enter the node reference nuaber end conclude with the 
RETURN key. 

C(ONSOLE PCRINTER 

Thi* proapt deterainee it the review ie to eent to the 
coneole or tha printer. 

Depress the C or P k'ey depending on the option desired. 
If C is depressed, the output will eppeer es in Figure 4 
If P is depressed, the output will eppeer es In Figaro 7 

VARNINC... 

TREE NEEDS TO BE (RE) CALCULATED 
OUTPUT VALUES NAP BE INCORRECT 

PRESS ANY REY TO CONTINUE 

The tree structure hes been aoditied by either eddtng 
or deleting nodes; sdding or deleting el ternettves; 
or chenging node weights or velues end hes 
not been celculeted since. This aeens thet the 
weights end vetoes for soae or ell nodes aey be 
ineccurete The review, however, it not inhibited. 

Depress any key 

(ANY KEY) CONTINUE (ESC) EXIT 
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SITUATION: 


When i (all piji el eatpat it produced, either on the 


printer or the eontole, the eatpat it panted to thet 
the ater cm eiieine the date. Preeeing any key Mill 
continue the eatpat. Fretting the ESC key will abort 
the nametic review end return control to the MAIN MENU. 

ACTION REQ: Oeprett any key or the ESC key depending on the notion 

regalred. 

PROMPT S: PRESS ANY KEY TO CONTINUE 

SITUATION: Ditpley it eonpleted- Tbit it written in order to 

allow the ater tine to perate the latt page of the 
nanerio review. 

ACTION REQ: Prett any key to oontinae the program. The program 

will return control to the MAIN MENU. 











BEST AIRCRAFT 

NODE REF NUMBER LABEL 


REVIEW 


f-« r-is r-m 


REL VT CUMVT 


I BEST PLANE 
I 1 AERO 
i 1 1 HICK ALT 
1 I 1 LOW ALT 
1 2 SURVIVABLE 
1 3 COMBAT 
I 3 1 AIR-AIR 
I 3 2 AIR-CNO 
1 3 3 RECCE 


1.00 

1.00 

47 . 

79 

3S 

04 

37 

01 

.14 

.14 

34 . 

SO 

31 

.00 

47 

SO 

.30 

.04 

43 . 

00 

00 

00 

30 

00 

.70 

.10 

30 

.00 

10 

.00 

ss 

.00 

.27 

. 29 

SO. 

.00 

00 

00 

40 

00 

.57 

. 5 ? 

30 

.00 

40 

.57 

34 

.29 

.43 

.24 

so . 

. 00 

90 

00 

20 

00 

.43 

.24 

so 

.00 

20 

.00 

40 

.00 

.14 

.01 

so . 

00 

10 

00 

<0 

.00 


The above format will be itin in P is depressed in response to PROMPT 
2. Each line in tits tibia contains tha following information (the 
third lint is usad as an example). 

1) NODE REF NUMBER LABEL Mil HIGH ALT). Tha noda 
rafaranea nonbar <NRN> is givan for each noda, along with that 
noda's labal. 

2) REL VT (.30) Tha wleght of this noda, relative to its 
siblings (1 1 2 LOW ALT) is givan. 

3) CUM VT (.04) Tha cumulative waight of this noda relative 

to tha antira tree (its contribution to tha top noda calculated 
values) is givan. 

4) ALTERNATIVE LABELS- F-4 F-13 F-ill (45.00 00.00 30.00). Tha 

values for tha alternatives are givan. These are either 

tha inputs values (it tha noda is a data noda) or calculated 
values (if the noda is an inner, branching node). These 
calculated values are those which tha user would enter if the 
branching noda ware to ba replaced with a data noda, and tha 
values entered as user Inputs. 












REVIEW 


BEST AIRCRAFT 
NODE REF NUMBER 

LABEL 

REL WT 

CUNVT 


F-4 

F-1S 

F-lll 

1 BEST PLANE 


1.00 

1.00 

1 

BEST PLANE47.77 

55.04 

it. at 

1 1 AERO 


.14 

.14 

1 

a 

AERO 

34.50 

31.00 

47.30 

1 1 1 HIGH ALT 


.30 

.04 


H1CH ALT' 

45.00 

00.00 

30.00 

1 1 2 LOW ALT 


.70 

.10 


LOW ALT 

30.00 

10.00 

S3.00 

1 2 SURV1VABLE 


• 2* 

.27 


SURVIVABLE50.00 

00.00 

40.00 

1 3 COMBAT 


.57 

.37 


COMBAT 

50.00 

40.57 

34.27 

1 3 1 AIR-AIR 


.43 

.24 


AIR-AIR 

50.00 

70.00 

20.00 

1 3 1 AIR-CNO 


.43 

.24 


A1R-GND 

50.00 

20.00 

40.00 

1 3 3 RECCE 


.14 

.00 


RECCE 

50.00 

10.00 

40.00 


Tha data on tha left aid* of tho dashod lint will bo loan It tha C key 
la dopraaaod In raaponaa to PROMPT 2. In order to ata tha data an tha 
right aida, dapraaa tha CTRL and A key at tha name tine. Oapraaaing 
tha CTRL and A kay again will return tha diaplay back to tha latt atda. 

Saa Figure 6 for farthar infotnatlon. 






















OPTION: PRU CPRUne tr••> 


USE: Prone t» used to illilnti Mlietid brenohos Ire* the tree. 

The user is given two options for pruning: <1> prone s node 
»nd ell its desoondents, or (2) prone only the deseendents 
of s node. 

iMiMtiitittritt* C A U T IONS eeeeeeeeeeeeeseeteee 

1. ENTERING AN INCORRECT OR NON-EXISTANT NODE REFERENCE 
NUMBER CAN HAVE CATASTROPHIC EFFECTS ON THE 

TREE STRUCTURE. USE OPTION REV OR N’JN TO INSURE 
PROPER NRN ENTRY. 

2. A FORM OF TEMPORARY PRUNING, WHICH DOES NOT ALTER THE TREE 
STRUCTURE IS TO USE VEICHTS OF 0.0 FOR THOSE BRANCHES 
WHICH WOULD BE PRUNED. USE OPTION WVC. 

****************** CAUTIONS ticeeeeeeeeeeieeeeeee 

PROMPT 1: N(ODE«DOWN DtOWN ONLY EiXIT 

SITUATION: The user is ssfcsd to seieeted the psrtiooltr otothod 
of pruning the tree struetore. 

NODE•»DOWN prunes ths node entered in response to PROMPT 2 
«s well es ill deseendent nodes. 

DOWN ONLY prunes only ths deseendents of the nods entered 
in response to FROMFT 2. 

EXIT ssits the option end returns the control to the 

MAIN MENU. 

ACTION REQ: Depress the N, D. or E key for the desired option. 


)0 





















Depressing the N or D key will result in PROMPT 1 tai 


on to bo displayed. Depressing the E key will remit 
in the esit of this procedure and retorn to 
the MAIN MENU. Depressing any other key will 
result in PROMPT 1 being repeated. 


PROMPTS: ENTER...NRN1 

SITUATION: The user is now asked to enter the node roferenoe 
nonber for the node on which the pruning is to 
take plaoe. 

ACTION REQ: Enter the NRN and conclude with the RETURN key. 


PROMPT 2-A: YOU CANNOT PRUNE A DATA NODE WITH 
A DOWN ONLY OPTION. . . 

PRUNE TERMINATED . . . 

<ANY KEY) CONTINUE 

SITUATION: The NRN entered in response to PROMPT 2 was a data node 
and the D key was depressed in response to PROMPT 1. 
ACTION REQ: Depress any key. The progran will return control 
to the MAIN MENU. 


MESSAGE I: PRUNING ... 

SITUATION: This nessage will indicate that various pruning operations 


are underway. Additional periods (.) will be displayed 
as sore pruning operations are initiated and completed. 
At the end of the pruning, control of the program will 
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OPTION: REV (REVlew of ilnotar*) 


USE: This option is used to generate • display ot tho trot stro art 

The nods reference naaber ted nods label art giton (or east, 
nods raviowod, which will ho tho user solootod nodo and 
all its descendants. 

iitmiiitiitiiii CAUTION satttttttttaaeoa 

1. DIRECTING THE REVIEW TO GO TO THE PRINTER WHEN THE 

THE PRINTER IS NOT AVAILABLE WILL RESULT IN A PROCRAH FAILURE 

Htttinmiittii CAUTION »«t»#t*tt*«»»toea 

PROMPT 1: A<LL S(ELECT 

SITUATION: This proapt dotorainos If the entire tree is to be 

reviewed (ALL) or II only a selected node is to be 
reviewed (SELECT) 

ACTION REQ: Depress the A or S key for the option desired. If the 

the A key is depressed, the prograa will respond with 
PROMPT 2. If the S key is depressed, PROMPT 1-A will 
appear. Any other key will result in PROMPT l being 
repeated. 

PROMPT 1-A: ENTER...NRN) 

SITUATION: The S key has been depressed In response to PROMPT 1 and 

the user is now asked to Input ths nods reietence nnaber 
(NRN) for which the nuattic review is to takr. place. 
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ACTION REO: Enter the node referenoe nuaber end conclude with the 

RETURN key. 

PROMPT 2: CfONSOLE PtRINTER 

SITUATION: Thie prompt determine* it the review i* to be eent to the 

oonsole or the printer. 

ACTION REO: Depres* the C cr P kef depending on the option desired. 

The output will appear as in Figore 8. 

PROMPT 3: VARNINC... 

TREE NEEDS TO BE (RE)CALCULATED 
OUTPUT VALUES MAY BE INCORRECT 

PRESS ANY KEY TO CONTINUE 

SITUATION: The tree structure ha* been aodified by either adding 

or deleting nodes; adding c: deleting alternatives; 
or changing weights and values of nodes and has not 
been calculated since. This mean* that the 
weight* and values for sose or ail nodes nay be 
inaccurate. The review, however, is not inhibited. 

ACTION REO: Depress any key 

PROMPT *: (ANY KEY) CONTINUE (ESC) EXIT 

SITUATION: When a full page of output is produced, either on the 

printer or tne console, the output is paused so that 
the user can eraaine the data. Pressing any key will 


continue the output. 


Pressing the ESC key will abort 











the review end return eentrel to the MAIN MENU. 


ACTION REQ: 

PROMPT S: 
SITUATION: 

ACTION REQ: 


Oepreee any kef or the ESC kef depending on the notion 
reqoired. 

PRESS ANT KEY TO CONTINUE 

Diepltf it completed. Thle it written in order to 
• How the oeer tine to portico the laet page oi the 
review. 

Freee any kef to oontinae the program. The program 
will return oontrol to the MAIN MENU. 


1 

B 

EST PLANE 

1 

I 

AERO 

1 

1 

i KICK ALT 

1 

1 

2 LOW ALT 

i 

2 

SURVIVABLE 

1 

3 

COMBAT 

1 

3 

1 AIR-AIR 

1 

3 

2 AIR-CND 

I 

3 

3 RECCE 


Figure t. REV Format (or the Concolt or Line Printer 









OPTION: 


BEL (8EL#ot data file) 


USE: 


PROMPT I: 

SITUATION: 

ACTION REO 

PROMPT 2: 
5IT.ATION 


This option io used to aoloet a now data filo 

Hiutiitititir CAUTION »»**• to»»»»•»t» 

1. ENSURE DISK NAME ENTRIES CONCLUDE WITH A COLON (:) 

2. IF CREATINC A NEW FILE AND THE FILENAME ENTERED IS THE 
SAME AS ONE THAT ALREADY EXISTS, THE OLD DISX FILE WILL 
BE DESTROYED. 

J. IF THE FILE ASKED FOR IN PROMPT t AND 2 DOES NOT EXIST, 
A RESULTINC COMPUTER ERROR WILL OCCUR. YOU MUST THEN 
DEPRESS THE SPACE BAR AND RE-EXECUTE THE DASS PROCRAM. 

uiiiuuiiint CAUTION ttttttttttttttttt 

ENTER .DISK NAME TO BE USED 
(EC. APPLEO.) 

Conputor data files (or the DASS prograa art catalogued 

t 

by a disk nano (voluae nan) and file naat. 

The coaputer at this point is nskin? (or a disk uaa*. 
Entst the nans of the disk Conclude entry with a colon 
(:) and the RETURN key. !( the file is to be on the 
saae disk with the DASS prograa, the RETURN key by 
It SCI I will soil ice. 

PLEASE INSERT. OIS7. NAME) AND DEPRESS RETURN 

The coaputer is asking that the user insures that the 

dick specified in PROMPT t is ; the disk drive 


ACTION REQ 


Make sore that the disk specified in PROMPT 1 is in ths 










disk drive, then depress the RETURN kef. 


PROMPT 3: ENTER...FILE NAME TO BE ACCESSED 

SITUATION: The e mpofer is asking fer the particular file nave. 

ACTION REQ: Enter the file name of the desired dote, conclude with 

the RETURN key. The file nane can consist of 
alphanumeric* flatter* or numerical digits) and the 
special characters minus sign (->, right slash (/>, 
back slash ft), and underline (_). The file name oan 
be anf length; however, onlf the first three characters 
will be significant and used by the program. 


PROMPT d: <CP> OR NEW? 

SITUATION: Asking if the file already ecists. The file eaiets if 

the OASS program has been stopped by the DON or SEL option 
after entering the fiie name entered in PROMPT* 1 
an.' 2. 

ACTION REQ: If the file described in PROMPT 1 is to be a new file, 

type NEW and conclude with tilt RETURN kef. The 
program will then execute options ATT, TT r ., and SPA. 

If the file described in PROMPT 1 and 2 is an old 
file, press the RETl'.'iN key The program will display 
the MAIN MENU 
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OPTION: SEN (SENaitlvlty analytic) 

VSE: Uaed to conduct uniltlfltf analyttt. Tht iilietid noda'a 

weight, relative wilgkl, or in tin cate of o dott nodo. 
tho »il«i of an alternative, io allowed to tango bttmoa 
o ooor ootootod minimum and matimum values. Tho trot io collopood 
with tho perturbad appropriata wtlght lor value), and tho velvet 
of tho top nodo art printed or plotted. 

HiimtiM C1IITIOK eteeeeeeteeee 

1. USING MIN AND MAX VALUES FAR FROM THE ‘CORRECT' VALUE WILL 
CIVE MATHEMATICALLY CORRECT NUMBERS, HOWEVER THE VALIDITY 
OF THESE RESULTS MAY BE SUSPECT DUE TO THE SYNERCISTIC 
INTERACTIONS OF VEICHTS WITH WEICHTS AND WEICHTS WITH 
VALUES. 

•••**»*••»• CAUTION ttmuttmt 

MESSAGE 0: WARNING . . . 

TREE NEEOS TO BE {RECALCULATED 
REPORTED VALUES KAY BE INCORRECT! 

<ANY KEY) CONTINUE 

SITUATION: Tht trot atruotore hat bttn modified fty oithtr 

adding or daltting nodes; adding or delating alternatives; 
or changing nodo wtlghtc and valuta. Tht stnaitlvity 
analysis will not bo inhibited; however, valuta calculated 
will not bo valid. 

ACTION RED: Pratt any kty to continue Iht program and rttpond 
to PROMPT i by plotting tho E key. 

PROMPT l: SENSITIVITY OUMVT RiELWT V)ALUE E)X!T 
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SITUATION: This proapt la to aeoertain tba type of aenaitifity 
•nalyata that la to bo aeeoapliahed. 

CUHWT - my tho cumulative weight ot a nodo. 

RELVT - very the relative weight ot a node. 

VALUE - very tho value o( an alternative 
at a data nodo. 

EfIT - aait eeneitivlty 

ACTION REO: Preee tho C, H, V, or E key depending on the 

option doairod. Preeeing any othor key will reantt in 
PROMPT 1 being repeated. 

MESSAGE I: SENSITIVITY ANALTBIB FOLLOWS: 

PROMPT 1: NRN FOR WHICH <OPTION> IS 

TO BE PRETURBED 
INTER... NRNf 

SITUATION: (OPTION) indieatee the option eoleeted by tho near in PROMPT 1 

The computer ia taking (or the Node Reterenoe 
Nnaber (NRN) tor the node where the sensitivity anaiyala 
la to take place. 

ACTION REO: Enter the node reterenoe number (NRN) (or 
the node where the aenaitieity ta to be 
aeeoaplished. Any eharacter not a number will bo 
ignored. End the NRN entry with a carriage return (RETURN key). 






PROMPT XA: 

SITVAT!ON: 

ACTION REO: 

PROMPT 2B: 

SITUATION: 

ACTION REQ: 

PROMPT 3: 

SITUATION: 

ACTION REQ: 


NODE DOES NOT EXIST... 

<ANT RET) CONTINUE 

The NRN iniin! by tho am doao not oiiot tn tho preaoat 
troo otroototo. 

Pros* any boy to oonttnoo progran. Tho ooapator will 
roopend with PROMPT X. 

NODE NOT DATA NODE... 

(ANY KEY) CONTINUE 

Moooago ocean whon tho noor hao ooloetod tho VALUE 
option and tho NRN ooloetod by tho noor lo not 
a data nod# (t.o. tho bottoa-aoot node (or that 
branch). 

Proof any boy to oonttnoo progran. Tho ooapotor will 
roopond with PROMPT 3. 

SYSTEMS AVAILABLE 
(LIST OF ALTERNATIVES) 

ENTER SYSTEM TOR WHICH VALUE IS 
TO BE FRETURBED. . . 

(LIST OF ALTERNATIVES) Altorndtlvao that aro oontalnod in 
the promt troo otractura. Thio proapt occur* only whon 
tho VALUE option lo raqaaotod. 

Entor on* of th* altornati*** liotod in th* 

(LIST OF ALTERNATIVES) ending with a carriage return 


(RETURN bey). 





















PROMPT »A: SYSTEM ENTERED NOT VALID 
(ANY KEY) CONTINUE 

SITUATION: Th* (fil» by the met In tiipcRM to PROMPT I 

woo not tbo ooao oro lletod in tbo (LIST OP ALTERNATIVES) 
<•00 PROMPT 3) obooo. 

ACTION REQ: Pro** ony boy to eontinao tbo pregrea. Tho eoapotor 
•rill ropoot with PROMPT 3. 

MESSAGE 2: <NRN) (NODELABEL) 

CURRENT NODE (OPTION) IS (VALUE) 

SITUATION: (NRN) Nod. referenced ontorod by Boor In PROMPT 2 

(NODE LABEL) Th* tltlo of tho nodo idontlfiod by tho 
nodo roioronoo naaber in PROMPT 2 
(OPTION) VIII bo oithor CUMWT, RELVT or VALUE 
dopondont upon tho choice aide In 
PROMPT I. 

(VALUE) Tho procont voioo of the coauletiv* 

weight, tho rolotivo weight, or th* voluc 
of tho oltornetlvo for tho nodo identified 
in tho NRN In PROMPT 2. 

PROMPT «: MINIMUM (OPTION) <0-(MAX VALUE ALLOWED)) IS) 

SITUATION: (OPTION) Will bo either CUMVT, RELVT or VALUE 

depending upon th* choio* aid* in 


(1 








prompt i. 


(MAS vuut ALLOWED) 1 for option* CUMWT or RELVT 

tOO for option VALUt 

ACTION RIO. Cntor * volo* which will ho and «• tho lowor li»lt 

In tho oonoitivitp toilfiii for th* option oolootod bp 
PROMPT I. Conclude tho ontrp with t carriage return 
(RETURN hop). Entered vela** below 
■ere or higher then tho (MAE VALUE ALLOWED) will 
reonlt in PROMPT 4 being repotted. 

PROMPT St MAXIMUM (OPTION) ((MIN VALUE) - (MAX VALUE ALLOWED)) ISf 
SITUATION: (OPTION) Option oolootod bp PROMPT 1 

(MIN VALUE) Utor inpot otIno in ronponoo to PROMPT 4 
(MAX VALUE ALLOWED) Saw* t* PROMPT 4 
ACTION REQ: Th* aoor 1* to enter t value which will bo a*od to 
tho oppor Unit in tho oonoitivitp antipole for th* 
option oolootod bp PROMPT 1. Conelnd* th* ontrp with 
* carriage return (RETURN hop). Entered value* below 
(MIN VALUE) or higher than th* (MAX VALUE ALLOWED) 
will recult in PROMPT S being repeated. 

PROMPT i (OPTION): T>ABULAR GRAPHICAL E)IIT 

SITUATION: (OPTION) Either CUMWT, REIVT, or VALUE bt**d on th* 

option oolecled in PROMPT t 
Th* conetivitp tnalpci* it conplotod. Th* ecwputor 
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TABULAR - Tabulated ulgu let arch systoa, «t Ih* top 
nod*, lot th* two oitrono* «nd tor V oqnslly 
opoood points intornsi to tho interval (Figaro f). 

CRAFHICAL - Th# graphioal representation of tho 

analysis with th* two ostroaos of th* 
sonsitirity intorvol olong th* T-asls 
•nd tho values tar osoh syttom, it tho top 
nods, slang th* I-ssis. Eaeh alternative is 
oolor oodsd st tho top ot th* display (Figaro 10). 
HIT - Lotos th# sonstlvity tnslyois rantin*. 

ACTION KEO: Usor is to pros* th* T, C, or E fcsy to display 

tho analysis in th* dssirod nod*. Pressing any othsr 
k*y will rosalt in PROMPT i b*ing reposted. 

PROMPT 4A: TABULAR: C(ONSOLE P(RINTER 

SITUATION: This proapt will b* in tarpons* to th* T key being 

depressed in PROMPT tTh* eonpst*r is now asking as to wh*th*r 
th* s*nsiti*lty analysis is to go to th* console or th* 
tin* printer. 

ACTION PEQ: Press th* C or P key to **nd th* 

sensitivity analysis output to *ith*r th* consol* 
or th* lin* printer, rtspactiv#Iy. Pressing any other 
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kif will niglt la PROMPT 1 being repeated. 


PROMPT it: 
SITUATION: 


ACTION RCQ: 


PROMPT 7: 
SITUATION: 

ACTION RCQ: 


CRAPMIC: NtORMAL C(ZPANOCD 

This proapt will be In reepenee te the C key being 
depressed in PROMPT i. The coapnter hee accepted the 
eaaaand te provide a graphical display of the eeaeitieitp 
analysis and if new aeking fer the feraat the graph le to take. 
NORMAL - the Z-atia will be labelled frea 0 te 100 which ie 
the aiaiana and aaiiaoa values which the top 
node oan take. 

IZPANDEO - the Z-atis will be labelled froa the leweat 
value obtained in the sensitivity analyst* 

(te the nearest 10) te the highest value 
(te the nearest Z0). This option is neraally 
used te separate alternative lines ler clarity. 

Press the N or C key based on the 
graphical display desired. Pressing any other key 
will result in PROMPT SB being repeated. Upon coapletion 
ef the graphleal display, depressing any key will result 
in PROMPT i being repeated. 

(ANY KEY) CONTINUE 

This occurs at the conclusion of the tabular printout 
at either the line printer or the console. 

Press any kay to continue the prograa. The prograa will 
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pond with PROMPT 4. 


CUHVT 

SENSITIVITY ANALYSIS 

FOR SURVIVABIE 

NRN: 
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OPTION: 


SPA (SPAn on • gloon node) 


USE: Thlo option it oood to erooto now trot otrnotnroc by 

entering tho {Mediate doooondonto (ohildron) to nodoc. 
Tho ooor ontor* tho nodo reference nonbtr (NRN) (or tho 
top nodo to bo proceeded, ond NRN* oro eatonatically 
generated for oil oddltiono! nodoo oc tho aoor ontoro 
lobolo lor tho now nodoo. Tho noor ic glvon tho option 
of erootlng doooondonto for oooh now nodo orootod. 


CAUTIONS 


1. ALL OLD DESCCNOrKTS AT A NODE ARE LOST IF EVEN ONE NEW 
DESCENDENT IS ADOEO. NOTE THAT IT IS POSSIBLE TO 
EXIT FROM A NEWLY PROMPTED NODE BY ENTERING DONE OR 
EXIT OR DEPRESSING THE RETURN KEY. 

2. A YES RESPONSE TO PROMPT 1-A WILL DESTROY ALL PREVIOUS TREE 
STRUCTURE DATA. 

I. A MAXIMUM OF 100 NODES CAN BE USED. THE PROGRAM WILL NOT 
CHECK IF MORE ARE ADDED. UNEXPECTED RESULTS MAY 
JCCUR. 

4. SPANNING A NODE WITH DESCENOENTS WIIL NOT ONLY RESULTS 
IN ALL THE DESCENDENTS BEINC DESTROYED, BUT ALSO REDUCES 
THE TOTAL NUMBER OF NODES AVAILABLE FOR THE TREE STRUCTURE. 

IN OTHER WORDS, THE TREE STRUCTURE WILL ONLY BE ABLE TO 
CONTAIN SOME NUMBER OF NODES LESS THAN 100 IN IT. IF SPANNINC 
ON A NODE THAT HAS DESCENDENTS, PRUNE (USING THE PRU OPTION) 
THE DESCENDENTS BEFORE SPANNING. THIS WILL INSURE THAT 
ALL 100 NODES ARE AVAILABLE IN THE STRUCTUP.E. 


CAUTIONS 


PROMPT I: 


SPAN NODES . . . A(LI S< ELECT 








SITUATION: 


This proapt deteraines where i new structure it to bo con- 


ACTION SCO: 


PROMPT I-A: 
SITUATION: 


ACTION REQ: 


PROMPT 1-B: 
SITUATION: 



■traetod (ALL) or now dooeondonto »ro to bo defined for 
e epeeifie node (SELECT). 

Oepreee tbe A or S key for the option deeired. If 
A(LL ie eeleeted. PROMPT l-A will occur, elee PROMPT 1-B. 
Depressing any other key will result in PROMPT I being 
repotted. 

DO YOU WANT TO BUILD A NEW TREE) (Y/N) 

This proapt is in response to the A key being depressed in 
response to PROMPT i. This is t stfegutrd to prevent 
inadvertent destruction of t tree structure. A yes 
response will start building the tree. A no response will 
result in esiting this option and a return to the MAIN. 
MENU. 

Depress the Y or the N key in response to the proapt. 
Depressing any other key wilt result in PROMPT 1-A being 
repeated. A Y response will result in SCREEN DISPLAY 
I . 

ENTER...NRN) 

This proapt is in response to the S key being depressed 
in response to PROMPT I. The progran is asking for the 
specific nod* reference nuaber to which the descendants 
are to be added. 

(7 








ACTION REO: Enter the node reference neaber and eonolede with tha 

RETURN key. A valid NRN will reenlt in SCREEN OISPLAT X. 
Entering an invalid NRN will oaoae program oontrai to 
return to the MAIN MENU. 

SCREEN 01 SPLAT 1 : 



SITUATION: Thie diopter Indicate* that a now structure is to bo 

developed. 

ACTION REQ: Enter the label of the root node In bos noeber 1. If the 

label is Itss than IS characters, depress the RETURN key. 
Vhen bos nuaber 2 Is drawn, respond by depressing the 


RETURN key- 










SCREEN DISPLAT 2: 



CURRENT HUNRER OF NODES: nn 

SITUATION: The parent nod* i( listed »t tho top of tho structure. 

The progrea will then drew tht wiro end tho boo for 
dososndent 1 *nd woit until an ontrr i» aade. After which 
tho prograa will draw the boi for descendant 2 and so on. 
CURRENT NUMBER OF NODES: nn, gi»es tho currant number 
of nodti presently in the atruoture and ia inoreaentod 
aa nodes are added to the at root e. 

ACTION REQ: Enter the label for a deacendent and if leas 

than 10 characters, conclude with the RETURN bey. If 
no deacendenta are to be added or if the last deacendent 
has bean added, enter DONE or depress the RETURN key when 


the neat entry ti.e. nett bot is drawn) is asked for. 













SCREEN DISPLAY l will ba rapaa ■' tor aaah noda antarai 
aatil tha antira traa atroctnra hat baan antarad. ton 
can aiit tha option at any tlna SCREEN DISPLAY S ta 
•hewn by antaring EXIT in tha daaeandant baa. Whan 
tha tinal neda labal haa baan antarad at EXIT baa baan 
antarad, tha program will ta torn control ta tba MAIN 
MENU. 
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OPTION: 


ST A (tree STA tidies) 


USE: This option displays tho oorrent neaber of nodes in the tc 

structure, tho nuaber of lovolo in tho troo structure, mi 
tho n«abot of alternatives mltitif by tho itoo 
otroetoro. 

mttHiiiiiiMMi CAUTIONS aeseeeteeseeteaee 
There arc no eantiono aoaooiatod with this option 
•*•**»•*•***•**•*• C A V T I C N S »»co»cot**»co#oo» 

PROMPT 1: NUMBER OF NODES na 

NUMBER OF LEVELS nn 
NUMBER OF SYSTEMS na 

(ANY KEY) CONTINUE 

SITUATION: nn roprooonta various numbers which would indicate 

tho number of nodes, levels, and systaas. 

The output is paused so that the user oan essaine the 
various statistics with regard to tho tree structure. 
ACTION REQ: After etaaining the data, press any key to continue. 

The prograa wilt return control to tho MAIN MENU. 
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SYS (entering, adding, or deleting SYSteas) 


OPTION: 

USE: Thin is need te enter lebels for the alternatives (systems) 

being eennidered. These ere Inter need to ptompt the nser 
to prompt the oser tor mines, end ns part ot various dtsplofs 
end review formats. 

***************** CAUTION •»•*«»***•*»*•*«** 

1. USING THE N(EW SUBOPTION WILL NOT DESTROY ANY 
INFORMATION THAT CURRENTLY RESIDES IN THE 
DATA NODES. IT SINPLY RELABELS THE ALTERNATIVES 
AND INCREASES/DECREASES THE NUMBER OF ALTERNATIVES. 

*•••**»•**•*••*•• CAUTION ••»•••»«•»*•***••• 

PROMPT I: A(DD OfELETE N(EV ECSIT 

SITUATION: The user is asked to select a snboptlon. They are: 

ADD add a new alternative to an esisting list of 
alternatives (see MESSAGE 1 and PROMPT X). 

DELETE delete an alternative to an esisting list ot 

alternatives (s«e PROMPT 3 and MESSACES 2 and 3). 
NEW oreate a new set of alternatives (up to a nasiaum of 
five) (see PROMPT 4 AND MESSACES 4 an 5>. 

EXIT esit the option and return oontrol to the MAIN MENU. 

ACTION REO: Depress tha A, D, N, or E key for the option ieslred. 

Pressing any other key will result in PROMPT : being 
repeated. 
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MESSAGE 1: 


MAE NUMBER OF SYSTEMS EXCEEDED 


SITUATION: Th* A kif hu tftptiiitd In tiiponii to PROMPT 1. 

There are ilrudp (!*• alternatives being iu|gt(i4 iptlait 
th* tuinnt tree (tractor*. Alter th* i* 

presented, PROMPT 1 will b* repeated. 

PROMPT 2: ADDING SYSTEM 

l/BELt 

SITUATION: Th* A key has fc**n depressed in response t« PROMPT 1. 

Th* eoapater i* new asking for th* title for th* 
alternative that is wished to b* added bp th* os*r. 

ACTION REQ: Enter th* titl* or nsa* of th* alternative to b* 

«dd*d. Th* titl* e«n b* of inp length; how*«*r, only 
th* first t*n (10) character* will be used. Conclude 
th* entry bp depressing th* RETURN k*p. Th* coapoter 
will respond with MESSAGE 2. 

MESSAGE 2: USE WC FOR ENTERING VALUES AND 

RECALCULATING TREE 

SITUATION: This aessag* is printed oat te sdeis* th* asor that 

th* asst needs te enter values for th* alternative 
last entered at all data node*. In addition, the 
user needs to recalculate th* tree in order to obtain 
correct results in subsequent reviews, displays, and 
sensi11v 11ies . Th* prograa will return control to 
PROMPT l. 


SS 





PROMPT 3: 


SITUATION: 


ACTION RCQ: 


MESSAGE 3: 
SITUATION: 


PROMPT 4: 


CURRENT 8TSTEMS . . . 

(ALTERNATIVE • ! > 

(ALTERNATIVE «3> 

• to. 

ENTER SYSTEM TO BE DELETED 

The D key has b*«n (iptin«( in tuptnti to PROMPT 1. 
(ALTERNATIVE (n> tiliri to th* non* of th* alternative(s) 
which or* currently ***lu*t*<l hy th* present tr«o 

• tractor*. Th* u**r is now «*lc*d to input th* name of 
th* alternative (system) which i* to b* deleted. 

In order to **e4p* fron this mod* at this point, enter . 

«n incorraot alternative n*m*. 

Enter th* n«m* of th* slt*rn*tlv*, from th* list given 
in th* prompt. Conelud* entry by depressing th* 

RETURN k*y. If » correct *tt*rn*tiv* lsbol is entered, 
the program will respond with PROMPT I. Otherwise, 
the program will respond with MESSAGE 3. 

SYSTEM NOT FOUND 

Th* slt*rnitive entered in PROMPT 3 was not tho same as 
that listed in PROMPT 3. The pregram will return control 
to PROMPT 1 of this option. 

ENTER...SYSTEM n LABEL! 
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SITUATION: Th# N kay has baaa daprassad in rasponaa ta PROMPT 1. 

This option is osad whan davaloping a now teas strwotora 
whata a sasaral altarnatiaaa art to ha antarad at anoa 
and any old data is maanlngless. 

ACTION REQ: Entar tba nan# of tha gitan systam (alternation) and oanotoda 
by daprassing tha RETURN kay. Tha antry ean ha af any 
langth; howasar, only tha first tan (10) eharaetars will bo 
isad. PROMPT 4 will than ba rapaatad. 

Altar antaring tha last systan, and thara ara lass than four 
al tarnat It#* Jj#ing investigated, type DONE and depress tha 
RETURN kay or prass tha RETURN kay alona. MESSAGE 4 will 
appsar and oontrol will ratorn to PROMPT 1 of this option. 

MESSAGE 4: NUN Or STSTEMS n 

SITUATION: Massaga tails tha osar how aany systans (n> that wara 

antarad. 

MESSACE S: SORRY...YOU MUST ENTER AT LEAST ONE SYSTEM 

SITUATION: Tha RETURN kay was dapr#ss#d or DONE was antarad and 

thara war# no systans (altirnatl»»s) antarad. 

Tha oonpotar will raspond with PROMPT 4. 






option: 


TTl (TiTLa of tha data atrnetora) 


USE: Till option ollotta a titla for latar oao at a 

kaalar to oarlona oatpot aaaaarlaa. 

aaaaaaaaaiaaaaaaaaaaa CAUTIONS aaaaaaaaaaaataaaaao 
Thara aro no oaotlona aaaooiatad with thla option, 
aaaaaaoaaaaataaaoaaaa CAUTIONS aaaaaaaataaaaaaaaaa 

PROMPT I: ENTER A TITLE FOR THIS DATA STRUCTURE 

SITUATION: Tha eompatar la raqoatting that tha soar antaro a 
titla for tha oorrant data atrnetora. 

ACTION REO: Entar a titla. oonolodlng with tha RETURN hay. Tha titla oan 
ha any longth; howaoar, only tho firat 40 oharaotara will 
bo ratainad. 


Si 










OPTION: WVC (Vaighte, Valuea, and Caloulatlone) 

VfiC: This option ia naad ta aoeaaa euboptione far entering 

weighta, antar valuatlone. or (ra)oaloalating iatatlot 
ealeee. 

aeeeeaeeaeee.c UIT I ONI 

SEE SPECIFIC SUBOPTIONS FOX CAUTIONS 
aaaaaaaaaata C A U T I 0 N S 


PROMPT I: WVC: VfEIGHT VCALUES CALCULATE EtXIT 

SITUATION: Thia initial prompt altel.ta a vuboption which 

ia to ba aalactad. 

VEICHT Input weighta to thoaa nodaa whloh have 
doaeandanta (aaa naat paga). 

VALUE Entar alternative valaaa at tha data 
nodaa (aaa naat paga pint one). 

CALCULATE Calculate tha vatuatione for the internal 
(branching) nodaa. Thia ia often called 
'collapatng' the tree. A detailed dleeaeelon 
of the CALCULATE eaboption followe. 

1EIT Eiit the WVC option and return to tha main 

menu. 


ACTION REO: Deprave the V, V, C> or E key to eelect tha deeirad 
option. Depraeeing tny other key will revolt in 
PROMPT 1 being repeated. 
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susoption w <sight 


USE: Thi* inbeption inpat wilghtl to tktil nod** which ht«« 
doooondonto. 


»•>*••*•«*«* CAUTIONS •••••»•****** 

1. INPUT or A NEGATIVE WEIGHT IS NOT DETECTED; HOWEVER. IT 
VOUSO INVALIDATE ALL THE CALCULATIONS WHICH USE IT. 

2. ENTERING A ZERO FOR ALL WEICHTS FOR ANT GIVEN NODE WILL RESULT 
IN A PROGRAM FAILURE. 

I. THERE IS NO ESCAPE FROM THIS SUBOPTION IT AUL IS SELECTED 
UNTIL ALL NODES HAVE SEEN WEICHTED. 

*•••*•***»•• CAUTIONS **«»*****»«•• 

PROHPT l: WEICHTS: AtLL 8CELECT 

SITUATION: Eliolt* whether oil nod** which ht»* d««o*nd*nts 

»r* to bo **l*ct*d or t( t aoor **loot*d nod* i* t* 

bo OhOSCu. 

ACTION REQ: Doproo* th* A or S boy depending on tho option 

doairod. If A i* depressed, PROMPT 1 *nd on will 
oooar. II *ny other key other then A or S i* 
depteieed, PROMPT 1 will b* r*p**tod. 

PROMPTS: ENTER...NRNt 


SI 








SITUATION: The SIELECT option h»* boon saleeted »nd tbo prograa 
is asking (or • node reference nuaber. 

ACTION REQ: Entor tbo nodo roloroneo nuaber and conclude with 
tho RETURN bay. 

PROMPT JA: NRN ENTERED IS INVALID 
(ANT RET) CONTINUE 

SITUATION: Tho nodo raloraneo noabar olieitod by PROMPT X to 
not a nodo which has dosoondonts. 

ACTION REQ: Press any bay. Tho eoapotor will respond with PROMPT X. 

PROMPT 1: OLD VTS NEW VTS NORMALIZED 

DESCENDENT «1 XX 

OESCENOENT «N XX 

SITUATION: Tho labels o( tho dcscandont nodes are listed ae wall 

as tho oorrant noraaiisad <i.o. tho sun equals 1) weights 
aoltipliad by 100. 

ACTION REQ: Enter U:<. relative weights anong the descendants listed. 

Conclude each entry by depressing the RETURN key. Entries 
need not equal 100. 

ARC THESE VEICHTS OKAT? (T/N) 


PROMPT t: 





SITUATION: Th* new weights have been neruliiil (t«m< to HOI. 

Too or* asked to whether ths weights entered are ao 
desired. A yea response will roaott in PROMPT S. A 
ao roaponso will reaolt in PROMPT A being repeated. 

ACTION REQ: Depresa the T or N key. Conclude bp depresaing the 
RETURN kap. 

PROMPT S: ENTER RATIONALE TOR VEICHTS 

(MAX <0 LETTERS) 

SITUATION: Too are aaked to enter anp oowaents conoerning the loot 
inserted weights. 

ACTION REQ: Enter anp consents aa desired. The entered rationale 
»ap be op to 100 characters in length; however, onlp 
the drat iO will be aignilicant. 

NOTE: IF A WAS SELECTED FOR PROMPT 1, PROMPTS 3 THRU S WILL BE 

REPEATED UNTIL THE ENTIRE TREE HAS BEEN WEIGHTED 

AT THE COMPLETION OF THIS SUBOPTION, CONTROL WILL BE 
RETURNED TO OPTION WVC. 


to 
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SUBOFTION: V(ALUES 


VSE: Thi* eoboptlon input* value* to th* diti nod** (or ooob 


C A U T I 0 N S 


1. Alt NEW VALUES OF ALL ALTERNATIVES FOR THE GIVEN NODE ARE 
SET TO ZERO. 

1 THE ONLY VAT TO SAVE NEW VALUES FOR THE NODE IS TO USE THE 
EtEIT VALUE SUBOPTION. 


I. THE USER MUST UNDERSTAND THE MEANING OF THE VALUES BEFORE 
ENTERING THEM. VALUES CAN ONLY BE SCALED FROM 0 TO 100. 


CAUTIONS 


PROMPT l: VALUES: A<ll 5(ELECT 


SITUATION: Elicit* whether *11 nod** whioh have d**cendent* tr* to 


i( • ««•( **I*etod nod* ic to bo oho**n. 


ACTION REQ: Doproi* th* A or th* S key depending on th* option 

d**ir*d. If A i* d*pr****d, th* progran will proceed 
to th* SCREEN DISPLAY. An S will r**alt in PROMPT Z. 
Any other k«y will remit in PROKPT 1 being repeated. 


PROMPTZ: ENTER...NRNI 


SITUATION: Th* StELECT option ha* b**n (elected and th* prograa 

i* aeking tor a data nod* reference nuaber. 


ACTION REQ: Enter th* nod* reference noaber and oonclod* with th* 


j 



















RETURN key. 

PROMPT 2A: NRN ENTERED IS INVALID 

(ANY KEY) CONTINUE 


SITUATION: The nod* reference nueber (elected in reap 

PROMPT 2 it not • do to node. 


ACTION REO: Proto ony koy. The eoapeter will ropoot PROMPT 2. 


SCREEN DISPLAY: 


VALUE: A(BORT BUCK SUIT N< EXT (ESC) 


NRN: 1 2 I 


NODE LABEL 


OLD VALUE 


NEV VALUE 


□Oo 

ALTERNATIVE 

OLD VALUE 

NEV VALUE 



SITUATION: Thlt ditploy will opptor lor tho select'd dote node 

if S wot depreti in PROMPT 1 or for etch dote node in tar 
1f A wee depretted. 


<2 










1 



1. NODELABEL represents the 1111• of tho dot* node 

that tho alternative values aro tntorod 
for. 

1. OLD VALUES roproaanto in bar graph foraat tho 

carrant values of given alternatives 
for tho proaont node. Each alternation 
haa a distinctive oolor (orange, 
fiolot, blue, groan, or white) and 
ie identified by item 4 (below). 

1. NEW VALUES repreeentf in bar graph foraat, the 

near supplied value; of given alternativee 
for the prevent node. Each alternative 
has its own eolor as in the OLD VALUE. 

4. ALTERNATIVE lists the ntae of a gi/en alternative 

sorroonded by its distinctive color. 

5. OLD VALUE lists the ituaeric value of the alternative 

color bar in itea Kabove), and labeled 
in itea 4 (above). 

4. NEW VALUE Area where the user inputs the new value of. 

the alternative. At the coapletion of the 
entry (RETURN key), the appropriate color 
b."' will be drawn to redact the user 
Input . 

(3 







OPTIONS UNDER VALUE: 


A(SORT Abort* oil ohangos nidi bp th* «i«r 

tnd rmnt th# nod* with tto original itlui. 
Th* program will prociid to th* no*t nod* 
or th* WVC had depending on th* r**pon** to 
PROMPT 1 of VALUES. 

Co** book to th* iamodiot* pr*d**dlng 
olternotivo without chonglng the vein* e! th* 
pr«**nt alternative. 

E*1t th* pr***nt nodi, ond •*** th* *lt*rn*ti»* 
vole** os indicated in th* NEW VALUE groph. 

<I tin S above). 

NtEET Co*s to th* noit oltcrnoti** without updating 

th* islu* in th* NEV VALUE bar groph (Itia 3 
obov*) (or the present iltcrnoti**. 

(RETURN) digressing th* RETURN top oopios th* *oIu* of 
th* OLD VALUE <!tim 1 sbov*) ior th* given 
altirnotiv* to th* NEW VALUE. 

diprissing thi ESC Lip will short thi VALUE 
•ubsption r*gordliss si to whsthir oil nodes 
or « silictid nodi wos nqoistid. Th* progrsu 


B( ACK 


E'JIT 


< ESC) 













EUIOPTION: CALCULATE 


USE: CtlealiU the value let the Utirnil (branching) nodes. 

Callapsaa tha tree. Raaata warnings in main aptlana SEN, IEV, 
018, and NUN. Oataiia of Sow tha calculation* are oarriad ant 
ean ba foond in tha Pregrammar‘a Manual of this document. 

eaaaataaaaa* CAUTIONS «»a»»aa»a**a* 

Thara ara ne cautions associated with this sobeption. 
ataaatataaee CAUTIONS »»»»»a**a*a»t 

NESSACE 1: CALCULATING TREE.. 

SITUATION Massage appears as traa is being eallaspad. Additional 
periods ara added to the message to indicate 

that oalcalattons ara still going an. At the aamplatian 
of tha calculations, central will ba returned to 
OPTION WVC. 







V. SAMPLE SESSION 


The following low paragraph! will deaonctrate tho noo of tko DABS 
through a oaapla ootaion. Tho objective of thio soooion will bo to 
Inotall tho hierarchical otrueture chown in Figaro 1, condaet a 


euaulative oencitivity analytic on tho nod* SUHV1VABLE, and than to oalt 
tho prograa. 

Daring thio prolongation, tho eoapntor rocponooo will bp profltod 
by COMPUTER:, whilo tho aoor'o rocponoo will bo profited by USER:, hap 
aide notoo regarding opoeifie. aetiono will bo anoloood bp parontheoec. 


In addition, entrioa whieh required tho doproooing of tho RETURN hop 
will bo indicated bp tho opabol for). 

After turning on the opotoa, tho uoor chould deprooo tho S hop (to 
oaoeute tho prograa) and than type DASS and ^epreoi tho RETURN hop. 


COMPUTER: 

ENTER...DISK NAME TO 
(E.C. APPLEO) 

HE USED 

USER: 

<cr > 


COMPUTER: 

PLEASE INSERT AND DEPRESS RETURN 

USER: 

<er) 


COMPUTER: 

ENTER.. FILE NAME TO 

BE ACCESSED 

USER: 

EXA < or > 


COMPUTER: 

<CR> OR NEW 


USER: 

NEW <cr> (Craata t 

now data filo) 

COMPUTER: 

ENTER ATTRIBUTE CHARACTERISTIC (RECRET OR VALUE>» 




















•.HI.' 


r 



i'- 




I 

C- - 

• . 

I 



I 



USER: VALUE (oil 

COMPUTER: ENTER A TITLE EOR THIS DATA STRUCTURE 

USER: BEST AIRCRAFT <et> 

COMPUTER: SPAN NODES. . . A(LL SC ELECT 

USER: A 


COMPUTER: DO YOU WANT TO BUILD A NEW TREE! O/M) 

USER: T 


COMPUTER: 



USER: BEST ACFT Cer> 


COHPUTER: 



US1 


Cor > 














COMPUTER: 


USER: 

COMPUTER: 


USER: 
COMPUTER: 




BEST 

ACFT 






PERFORMANCE (NOTE: th« DASS only illtwi 10 oharaetar 
itbils. It ltbili * r t grulir than t 
eharaetars, do not dtproao tho RETURN boy) 



BEST ACFT 








PERrORHANC 




SURV1VABLE 



USER: 


COMBAT (or) 








COMPUTER: 


USER: 

COMPUTER: 


USER: 

COMPUTER: 


USER: 
COMPUTER: 

USER: 



<«() 



PERFC 

1RMANC 






HI ALT <er> <Th« uaar than antara tha rtminlng nodaa 

patting on daaoandanta •• raqoaatad. Tba iaat 
entry ia atatad balow) 




RECC! 

P 






<er> 

ATT 01S DON MOD NEW NUM FRU REV SEl 

SEN S«A STA SYS TTL VVC 

OPTIOM 

STS (or) 


7 













COMPUTE!: 

USE!: 

COMPUTE!: 

USE!: 

COMPUTE!: 

USE!: 

COMPUTE!: 

USE!: 

COMPUTER: 

USE!: 

COMPUTER: 

USER: . 

COMPUTER: 

USER: 

COMPUTER: 

USER. 

COMPUTER: 

USER. 

COMPUTER: 

USER: 


A(DD D(ELETE N(EV E<EIT 
N (M«ti bo <et>> 

ENTER...SYSTEM 1 LABEL? 

F-4 <or> 

ENTER... SYSTEM Z LABEL? 

F-IS <Of) 

ENTER...SYSTEM » LABEL? 

F-I1I <et> 

ENTER...SYSTEM 4 LABEL? 

<er> 

A(DO D(ELETE N(EW E(E1T 

E (Koto no (Ot>> 

ATT 01S DON MOD NEW NUM PRU REV SEL 

SEN SPA STA SYS TTL WC 

OPTION? 

WC (or) (Entor weight*, filui tnd oileoloto troo) 

WC: VCEICHT VfALUES C CALCULATE ECIIT 
V (Entor tho rthtWi wilghti on tho (pint) 


VEICHT. A(LL 

S(ELECT 



A 

OLD VTS 

NEV VTS 

NORMALIZED 

PERFORMANC 

0 



SURVIVABLE 

0 



COMBAT 

0 



1 <or > 

2 <«r > 

4 (or> 
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COMPUTER 



COMPUTER: WC: V(EJCHT VtALUES CALCULATE E(ZIT 

USER: V (Enter alternative valuta of the attributes) 

COMPUTES- VALUES: A(ll StELECT 

USER: A 
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CONFUTED: 


VALUE: A(SORT BUCK E(XIT N(EXT <IBC> 


I 


NRN: 1 t 1 | HI AIT | 

OLD VALUE NEV VALUE 


1 


P 


* - 
% . 

v-, 

• •' 

£ 

M 


ALTERNATIVE 
OLD VALUE 
NEV VALUE 


M 


0.0 


USER: 43.0 (or) 

COMFUTER: VALUE: A(SORT BUCK E(XIT N(EXT 

NRN:1 1 1 

OLD VALUE NEV VALVE 


l".- UT l 


□ _ 


ALTERNATIVE 
OLD VALUE 
NEV VALUE 


r-is 


0.0 


USER: 10 (or) 


(ESC) 
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COMPUTER: 


USER: 

COMPUTER: 

USER: 

COMPUTER: 

USER: 
COMPUTER: 

USER: 

COMPUTER: 

USER: 


VALUE: A(BORT 

MRN.l 1 2 

OLD VALUE 


B<ACX E (X IT NtEXT (ESC) 


LO ALT 


NEW VALUE 


ALTERNATIVE 
OLD VALUE 
NEW VALUE 



(Enter* th* worth ulmi for oil ronoining nod**) 


WVC: W< EIGHT V(ALUES CALCULATE E(XIT 
C 

CALCULATING TREE. 

WVC: W(EICHT VULUES C(ALCULATE E(IIT 
E 

ATT DIS DON MOD 1£V NUM PRU REV SEL 

SEN SPA STA STf TTL WVC 

OPTION* 

NUM (or) (Conduct nanorlo review to got Nod* R*f*r*ne* 
No»b*r) 

A(LL S(ELECT 

A 


COMPUTER: 


C(ONSOLE P(RIKTER 














COMPUTER: 


■CRT AIRCRAFT 

NODE REF HUMICR LABEL 




REL VT CUMVT 


1 BEST PLANE 

1.00 

1.00 

t 1 AERO 

.14 

.14 

1 1 t KICK ALT 

.30 

.04 

1 1 2 LOV ALT 

.70 

.10 

t 3 SURVIVABLE 

.17 

.37 

1 3 COMBAT 

.37 

.57 

1 1 1 AIR-AIR 

.43 

.34 

1 3 3 AIR-CND 

.43 

.34 

1 3 3 RECCE 

.14 

.00 


PRESS ANY KEY TO COKTIKUE 


USSR: (Dapraaa tha CTRL and A kay al»oltanaooaly> 


COMPUTER: 


LABEL F-4 P-tS r-lM 


REST nAHE47.JP 5S.04 37.01 
AERO 34.50 31 .00 47.50 
HIGH ALT 45. DO 10.00 10.00 
LOV ALT 30.00 10.00 53.00 
SURV1VABIE50.00 10.00 40.00 
COMjAT 50.00 41.37 34.37 
AIR-AIR 50.00 70.00 30.00 
AIR-GND 30.00 30.00 40.00 
RECCE 30.00 10.00 40.00 


USER: (Oapraaa tha CTRL *nd A kay ai*oltanaoaaly) 










COMPUTER: 








1 BEST PUNE 1.00 1.00 

1 1 AERO .10 .10 

1 1 1 H1CH ALT .10 .00 

1 1 2 LOW ALT .70 .10 

1 t SUP.VI VABLE . *7 .17 

1 3 COMBAT .57 .57 

1 3 1 AIR-AIR .01 .30 

1 i 2 A1R-GND .03 .20 

1 3 3 RECCE .10 .08 

PRESS ANY KEY TO CONTINUE 

USER: (er> 

COMPUTER: ATT DIS DON MOO NEW HUM PRU REV SEL 

SEN SPA STA SYS TTL WVC 
OPTION! 

USER: SEN <or> (Stmltlvlty tnilystO 

COMPUTER: SENSITIVITY: CIUKVT RIELWT V)ALUE E>XIT 

USER. C 

COMPUTER: SENSITIVITY ANALYSIS FOLLOWS 

NRN TOR WHICH CUHWT IS 
TO BE PERTURBED 
ENTER...NRN? 

USER: 1 2 <cr> 

COMPUTER: 1 2 SURV1VABLE 

CURRENT NODE CUMVT IS 0.2?- 

M1NIMUM CUMVT (0-1.0) IS? 

USER: 0 <cr > 

COMPUTER: MAXIMUM CUMVT <0-1.0) IS? 

USER: I (or) 

COMPUTER: CUMVT: T)ABULAR ORAPHICAl E)XIT 
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USER: C 

COMPUTER: CRAPMtC: NIORMAL E(XPANOEO 

USER: M 

COMPUTER: 


SENSITIVITY ANALYSIS 
rOR SURVIVABLE NRM 1 I 

VALUE 


C 

U 

H 

V 

T 


USER: <cr> 

COMPUTER: CUMVT: TUBULAR ORAFHICAl E>XIT 

USER: C 

COMPUTER: ATT DIS DON MOD NEW NUN PRU REV SEL 

SEN SPA STA SYS TTL WVC 
OPTION! 

USER: DON (er> (Coaputtt now oiit* th» progria) 
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I. INTRODUCTION 

This pt»|fin»r'i manual it in support of tho Decision Analpsis 
Support Siili* as described in tbo proceeding thesis and appandteoo. Tho 
parpofa li to provide future analysts with information pertinent to the 
program itreif for modifieatiene and improvements. 

Tbii program was written in USCD PASCAL at supported bp the Apple 
11 Hircroconpeter. Inelnded in the program is computer oolor graphies 
which is an implemented fsatsro on the Apple II. 

Ifanp of tho oomments and etamplos presented in this manual refer 
to Figure 1. The programmer and interested readers are urged to refer to 
this figure when reading the following sections. 


I BEST ACFT I 


_ 

PERFORMANCE 


0.3 

0.7 

HI AIT 

10 ALT 




0.27 


SURVIVABLE 


o.< 


G 

30.0 

10.0 

40.0 



U L COMBAT 

0.0 0.0 

I AIR-AIR [aIR-CND 


Figure i Sample Tree Struotore 





II. ARRAY STRUCTURES 


The array structural in this program fellows that of the DA88 
program pst forth in ths Apploseft BASIC program. Thoro aro thrso 
primary arrays that art carried in internal memory. The names are IRAT, 
ARAt, and VRAY. Ths following paragraphs will deseribo each array and 
provide appropriate row and column definitions. 

All Arrays aro «et up such that oaoh row, starting with row 1, 
represents a level in the strueture. For esample, if row two had node 
data in it, that would meao that that particular node was a level two 
type node (i.e. first descendant from the root node). Ths only ease that 
this is not true ts when FROCEDVRE CROSS (in UNIT A) is assented. Is 
this procedure, the arrays additionally hold a complete span of the tree 
which oontains the node whioh invoked the procedure. 

Array 1RAT is a an 11 row by i column array housing the various 
link pointers. The rows and eolumns are labelled starting with tore and 
running to ten and five respeetively. Each row represents a particular 
node with each column representing tha node number, the location Of the 
node on its span relative to its brothers and sisters, the downlink 
node, tho crosslink node, the baoklink node, and the baeklink node. 

Column taro represents the node number that is assigned to the 
node at the time of entry. Each node his a uniquely assigned node 
number. This number represents the record number of the disk file whore 


1 















• tl nod** tMlii in mi storage. In iMIllen, this nod* nuabor to «■*! 
in identifying downlink*, crosslinks, backlink*, and uplinks in irtif 
l RAT. 

Colsan one :opr*c*nt* th* nod** position in th* »p«n (or that, 

1***1 th* nod* i* at. Th* **ry iir*t nod* in th* span is lab*ll*d on*. 

This i* us*d to identify th* nod* using th* nod* r*(*r*ne* nonbor systoa 

\ 

(A* described abo** and in th* U**r'* Hannal). 

Coloan two r*pro*«nt* th* downlink nod*. Th* downlink nod* I* 
that nod* which is th* first d*se*nd*nt to th* nod* identified in ooloan 

t 

s*ro. ff that* ar* no d*se*nd*nts to th* nod*, th* downlink will b* 
s*ro. 

Co I nan thr** r*pr***nt* th* oresstlnk nod*. Th* orosslink nod* is 
that nod* whioh is a slbiirg of th* nods. It tho nod* do** not hava any 
aor* slb'tngs, th* crosslink will b* «*r*. 

Colaan four represents th* backlink nod*. Th* baeklink nod* is 
that ned* whioh eventually links th* nod* back to th* root nod* 

(top-aost nod*). Th* baeklink ean b* either th* parent nod* *r a sibling 
depending on th* nodes position on th* span. If th* ned* is th* first 
nod* on th* span (reading left to right), its baeklink nod* will b* its 
parent. If th* nod* is on any oth*r position, its backlink nod* will b* 
its sibling en its iaa*di*t* left. 

Coluan lie* represents th* uplink nod*. Thi* ooiuan is not saved 
on th* disk 111* but is used in PROCEDURE SPAN in SECMENT PROCEDURE 
DUMMY and th* uplink ned* is used in PROCEDURES NEXT and riNO In UNIT 

S 






















DASSA. It point* to the nod*'* parent 


•panning. 


Array ARAT 1* tha data array which houses tho relative and 
emulative weights tor • node. Relative weight* refer* to the relatlee 
importance of the node to it* siblings. Ail weight* are between sere and 
one, but the sen of the relative weight* of all siblings on a .given span 
is equal to one. Relative weights are assigned using option WC (see 
User's Manual) which is found in SECKENT PROCEDURE WVLOAD under 
PROCEDURE ROUT. 

Cunelativa weights refer to the impact of the node to the overall 
tree structure. This is particularly important in acconplishing 
sensitivity analyses. The cumulative weights are oaleulated using 
PROCEDURE CALC 1 SEGMENT PROCEDURE WVLOAD. The actual calculations used 
in calculating the tree (cumulative weights) will be discussed in a 
later seetlon. 

Array VRAT is the data array which carries worth value 
information tor the alternatives. The VRAY array consists of five 
columns each representing an alternative under Investigation. Values 
inside this array are inputted directly into data nodes (the bottom-most 
nodes in the tree structure) using option VVC (PROCEDURE RDV in SECNENT 
PROCEDURE WVLOAD). The values of nodes other than data node* are 
calculated using PROCEDURE CALC in SECHENT PROCEDURE WVLOAD. 









/ 

lit. Disk Flit Strsotsros 

TWo separate files in erootod and aaintalnod (or took t 
strsetsre developed by tho DASB program. Tho lint file oallod NODI (••• 
UNIT OASSA) oontain* tho roeord tor oaeh nodo. In addition, troo 
•troctnro statiotloo and rations tltloo ara otorod In tkio ttlo. Tho 
•oeond filo, oallod SYSTEMS (aloo In UNIT DASSA) oontains tho labols for 
all tho alternatives bolng inrestigatod. Tho following faw paragraphs 
will doooribo tho filoo in dotail. 

Yi a NODE, ao indloatod abort oontaino roeord data for oaoh nodo. 
Tho rooor>* oontains tho laboi of tho nodo (NODETITLE), tho soil nnabor 
(CELLNUMBIK), tho position tho nodo is’ on Its span (NRND1G1T), lto 
downlink nodo (DOVNLINX), its erosslink nodo (CROSSLINK), and its 
baokllnk nodo (8ACKL1NK). In addition, tho rooord contains tho node’s 
relative weight (RELUEICHT) and eonolatlre weight (CUNVEIGHT). as well 
as raises of tho altsrnatisas for that nodo either oalcnlatod or 
lnpsttod (SYSTEKVALUES ARRAY!i..51>. Finally, oaoh record oontains a 
consent eoncornlng that particslar nodo (RATIONALE). 

For ease of progranning, the nodo roeord nonbor (used in sarioos 
CETs and PUT* throsghost the program) is the sans as tho eoll nonbor of 
tho nods. Thos, raises of tho rations linking pointers (DOWNLINK, 
CROSSLINK, and BACKL1NK) can be seed to CET tho specif tod nodo directly. 

In tho ease of APPLE II all random access (lias (of which NODE 



















: SYSTEMS m). tilt first record of the tlla is labelled aero, tks 
it on*, sad so «a. Sines tbs rsostd number for tbs nods is else tks 
.<11 nuabsr of tbs node, rsesrd sere is not osed tot tbs nodes 
•hemsetves. However, nods tsto is seed to eontsin various tree 
statistics end titles. Tbs following paragraphs dssotibs whiob globsl 
Mtitblsi are stored in rsoord ssro of fils XXXNODB.DATA. 

Tbs NODETITLE variable eontains tbs ontrsnt attribute 
characteristic contained in global variable LATT, whiob is oroatod when 
option ATT is exercised (PROCEDURE LABELATTRiBUTES in SEGMENT PROCEDURE 
DUMMT >. 

Tbs CELLNUMBER variable contains the veins of the gl.bal variablo 
NNODES (nnabor of nodes in tbs tree). 

Tbs NRNDIGIT variable in tbs rsoord contains tbs currant number 
of levels containsd in tbs tree structure. Levels as discussed 
previously are the nuabsr of generations eainating from the root nods, 
including the root node. 

Tbs DOVNLINK variable eontains the eurrent number of alternatives 
(or systems) that are being investigated by the tree. The Information is 
transferred to and from the global variable NSYS. 

The CROSSLINK variable eontains the condition of the tree 
structure as identified by the global variable FLAG. If FLAG is 
non-sero, additions and/or deletions have been made to the tree 
structure, and the tree has not been re-ea1oulated. 

Finally, the RATIONALE variable contains the title of the tree 










•tractor* which 1c obtained hf option TTL (PROCEDURE READTITLE In 
SECMENT PROCEDURE DUMMY). Th* global variable TITLE eonUins the tr*c 
•tractor* till* daring pregrtn operation. 

Other variable* in record 0 of file XXXNODE.DATA not mentioned 
•re currently not oaed and art available for future use-. 

Disk aoeooa of tha node* are conducted throughout the progran: 
however, node care i* only accessed at two point*. The first point is 
when the file i* first accessed (PROCEDURE SELECTFILE in SEGMENT 
PROCEDURE DUMMY) and the sesond is when the file is closed (PROGRAM DA88 
er PROCEDURE 8ELECTFILE in SECMENT PROCEDURE DUMMY). 

While aocess to the nodes oeeur throughout the progran, the 
information transferred from the nodes to the holding arrays (IRAY, 

ARAY, and VRAY) are all done via PROCEDURES NODEARRAYTODISK and 
NODEOtSKTOARRAY found in UNIT DA88A. 

The second disk fits used by the DASS program is called SYSTEMS. 
Its purpose is to contain the labels of the alternatives (systems) 
currently being evaluated by tha tree struotura. The variable used In 
the file la caliad SYSTEMNAME. Sinoa tha file is small (current 
restrictions, due to tha number of colors available, limit the nombar of 
alternatives to five), whenever a requirement for an alternative name is 
requited, the file is acoessed (etoept in SECMENT PROCEDURE WLOAD where 
the systems are read into an array SYS and used during loading values in 
PROCEDURE RDV). 
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IV. SenettlvttT Analytic 


The iiaittlfit; tailfili in this vertion of DA8S not only 
oondoota variatlona for i ptrtletUt node'e otiolttit* weight, hut atao 
i nodt'a rotation weight and tf tho noda it a data noda, tho variation 
of a valna of a particular altarnativo. Tho following paragraphc will 
deaoriba tho nodala for tha optiona above. Tho ooda which ia aaod to 
Implement thoao nodala art PROCEDURE CXLCARRhY within SEGMENT PROCEDURE 
SENSITIVITY. 


Sanaitlvitv on Cnantattva Weight 

in thla analyaia, wa ar.a aianining tho affaot on tha ovarall trao 
("root" noda) baaed on a ohanga in tho cunolativa waight on any noda. 

Nota that tha oompooito valna of tha "root'* noda for a given 
altarnativo ia: 


VALUE(ROOT NODE) 



CUMULATIVE VEICHT(ATTRIBUTE) » VALUE(ATTRIBUTE) 


all 

at trlbota* 


In tha analyaia of cunulativa waight, wa »ra intareatad in 
roplaoing a particular cuaulaivo waight of any noda with a raw waight. 
Since the traa ia nornalitad, wa ;an calculate a now coapoeita value. 

Tha procedure ia to raaova the contribution of tha noda fron tho 


I 




■root* nodo ond replace it with • now contributed »loi. Koto that tbo 

< 

contribution ot any nodo to the overall 'root* node it: 

CONTRIBUTION(NODE) - CUMULATIVE WEIGHTCNODE) * VALUE(NODE,ALTERNATIVE) 

Since changing the oomolatlvo weight of any nodo roiultt in the trot no 
longer being noraalisad, the tree, itielf, nuot undergo a 
trant(ornation. The trantlornation nutt bo coeh that the tranaforaod 
tree'* ouaulativo weight it equal to one ainut the cuaulatlvo weight ot 
tho perturbed nodo. 

A tingle equation wat developed to aceoaplieh tho above proeeduro 
for a given alternative: 

NEW VALUE(ROOT NODE) - (VALUE(NODE) • NEW CUMULATIVE WEICHT) ♦ 

CM - NEW CUMULATIVE WEICHT) / 

(1 • OLD CUMULATIVE WE IGHT(NODE))1 • 

((VALUE(ROOT NODE) - 

(VALUE(NODE) ■ OLD CUMULATIVE WEIGHT(NODE))> 

11 ) 

Thus the procedure to deteraine the ehange in the "root* value of 
a given alternative given a change in a coaulative weight of tone 
attribute or objective ie at followt: 

(1) Pick a new cunulative weight of the node to be eaaained- 

(2) For etch alternative, deteraine the new "root* node value 
lor the alternative uting equation CD. 

» 









for esaaple, let's look at the effect of changing tbs ouaslitlu 
weight of node HI ALT iron A.641 to O.Qi on alternative f-t. 


for alternative P-4: 


VALUE(BEST ACFT.F-4) ■ 47.7* 


VALUEfHl ALT.F-4) ■ 45.00 


for node HI ALT 


CUMULATIVE VEICHTCHZ ALT) - 0.042 


Using equation til: 


NEW VALUE(BEST ACFT) - (VALUE(Hf ALT.F-4)* NEV CUMULATIVE VEICHT) * 

<(1 - NEW CUMULATIVE VEICHT)/ 

<1 - CUMULATIVE WEICHTtHI ALT)) • 

<VALUE(BEST ACFT.F-4) - 

(VALUE(HI ALT.F-4) * CUMULATIVE VEICHTCHI ALT)) 


■ (45.00 * 0.00 ♦ 


til - 0. OO / (1 - 0.042)) • 


(47.7* - (45.00 * 0.042)) 


snelt ltltv or 


Vhat we are etanining is to see the change in alternat'vc values 


at the "root* node based on a change of a relative weight on a span 


10 







anywhere in th* tree. Not# that th* “toot* nod* is th* overall objective 
of th* tre* structure. 

In performing tb* analysis, w* n**d to look at bow th* vain** of 
a nod* at* calculated. Not* that for any nod*, th* vain* of an 
alternative for that nod* i* just th* eon of th* product* of **ch 
innediat* descendant alternative vain* and its relative weight or: 

VALUE(PARENT NODE) ■ RELATIVE VEICKT(DESCENDENT)*VALUE<DE&CENDENT) 

all 

innediat* (21 

descendant* 

Thn* w* can say that a change in th* relative weight of any uod* 
will only affect th* vain* o'f th* parent node. In addition, note that 
th* vain* of any nod* i« only dependent on it* own iauaedist* descendant* 
and not on th* relative weight-of th* nod* itself. Therefore, In 
esanining a change of th* relative weight of a node, the new alternative 
vain** of it* parent need to be calculated and sobstitnted for th* 
inonnbent vain** of th* parent. This substitution will then effect th* 
value of th* "root" nod*. 

Substitution of th* new values into th* "root* node, fortunately 
is straight-forward. Note that the value contribution of any node to the 
"root" nod* is lust th* product of its value nultiplied 1/ it* 
cumulative weight or: 








NODE'S CONTRIBUTION TO THE ROOT NODE - CUMULATIVE WEIGHT(NODI) • 

VALUE (NODE) ESI 

Sine* th* cumulative weight of th* parent i* unchanged, th* 

•hang* in th* vatu* e( th* parent can b* added to th* "root" nod* or: 

NEV VALUE(ROOT NODE) ■ OLD VALUE(ROOT NODE) - 

(CUMULATIVE VElCHTtPARENi) * OLD VALUE(PARENT)> 
(CUMULATIVE VEICHT(PARENT) • NEW VALUE(PARENT)> 

Ml 

A question arie*e a* to how to dictribnt* th* remaining relative 
weight to th* nod*'* (ibiing*. An arbitrary rale wao wad* to k**p th* 
relative weight* of the siblings at the same proportion* a* wa* in tho 
incanbant *itaatton. for *ia*pte, let ns hav* three objective nodes A, 

I, and C. Lat *aeh of the**.obieetiv** hav* th* relative weight* of 0.7, 
0.2, sad 0.I respectively. If we vary the relative weight of A from 6.7 
to 0.0, then node B will have a relative weight of 0.133 and nod* C will 
have a relative weight of 0.0(7. It w* varied nod* A iron 0.7 to 0.(, 
nod* B will hav* a relative weight of 0.2(7 and node C 0.133. Note that 
th* ratio of B to C is unchanged in all case*. 

Thu* th* overall procedure in eramining th* effect* of a change 
in a relative weight of a given ned* on th* ’‘root* nod* is: 

(1) Pick a new relative weight of the nod* to be eianined. 

(2) Rediitribcte th* remaining relative weight* (that i* on* 
minus the relative picked in step (!>) among th* nod*'* 
sibling*. 
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(1) Recalculate th* titoi of the nodt'i parent going tho now 
rotative wolghto ooloetod in otopo (1) and (2) noing 
equation II). Noto that tho valets of tho nodo and Its 
siblings ato unchanged. 

id) Sobstitots tha now valet of tho paront nodo in plaoo of 
its old valet at tho "root" nodo using oqeation id). 


For osanplo, lot ns tvaloato tho inpaot on altornativo F-1S when 
tho rolativo weight of AIR-GND ehangos from its ineoabent rolativo 
woiqht of O.dS to O.Sfl. 

After establishing tho now rolativo weight for nods AIR-CND, 
eoapete tho now rolativo weights of nodes AIR-AIR and RECCE esing the 
rolativo weight of AIR-CND of 0.30 and maintaining the old proportion 
botwson AIR-AIR and RECCE. Vo ean determine the appropriate valeos 
through tho following oqeation: 


OLD RELATIVE WEIGHT (SIBLING) 

NEW RELATIVE WE I GHTi SIBLING) . . • 

(1 - OLD RELATIVE WEIGHT (NODE)) 


(1 - NEW RELATIVE WEICHT (NODE)) 


Thus for nods AIR-AIR: 


OLD RELATIVE WEIGHT (AIR-AIR) 

NEW RELATIVE WEICHT(AIR-AIR) ■ -. . — - i 

(1 - OLD RELATIVE WEIGHT (AIR-GND)) 


(I - NEW RELATIVE WEIGHT (AIR-GND)) 











I 

i 



■■r j j'.r j;, 


\ 


1.0 

• -- • (1-0.30) 

(1-0.43) 

■ 0.377 


and (or RECCE: 

0.14 

NEW RELATIVE WEIGHT*RECCE) '» — - — « (1-0.30) ■ 0.133 

(1-0.43) 




Tha soil stop i« to eolcaloto tho now tilro o( AIR-CND'o parent, 
COMBAT aeing tha now rolatttro weight* ealoalatod abort aolng agnation 
(X) lor alternative F-IS: 

NEW VALUE!COMBAT,F-15 > - RELATIVE VEICHT(AIR-AIR) • VALUE!AIR-AIR.P-13) a 

RELATIVE VE1CHT!AIR-CNO) • VALUE!AIR-CNO.P-IS) a 
RELATIVE WEIGHT!RECCE) a VALUE(RECCE•F-l5> 







p 


\ 


• 0.377 * 70 a 0.30 • 20 a 0.1X3 • 10 

■ 43.14 

Tha (Inal atop ta to aubatttuta the now value iuat calculated (or 
COMBAT into tha "root" node, BEST ACFT. Ueing aquation (4): 



14 















i 


NEW VALUE(BEST ACFT> a OLD VALUE(BEST ACFT.F-15) 


CUMULATIVE VEICMT(COMBAT) * OLD VALUE(COMBAT.F-15) ♦ 
CUMULATIVE WEICKT(COMBAT) * NEW VALUE(COMBAT t F-1S) 


• 53.74 - 0.57 • <1.57 ♦ 0.57 • 45.14 


a 53.07 


n*i*(<ti, tha ehtnga in tha hUi of altornatiao F-15 in tbo 
objaetivo BEST ACFT given • ehtnga in to relative ml|ht of nodo AIB-CND 
fron 0.41 to 0.50 to 53.07. 


Saneitlvitv on Attrtbnta V 









NEV VALUE(ROOT NODE.ALTERNATIVE) ■ OLD VALUEtROOT NODE.ALTERNATIVE) > 

CUMULATIVE WEIGHT(ATTRIBUTE) • 

INCUMBENT VALUE (ATTRIBUTE.ALTERNATIVE) ♦ 

CUMULATIVE VE IGKT<ATTRIBUTE) « 

NEW VALUE (ATTRIBUTE.ALTERNATIVE) . IS) 

Not* that fiiflng th* *«ln* of in alternative for *n attribute 
only offoot* th* film of th* "root'* nod* tot th»t alternative »nd th* 
«•!«•* of th* “root" nod* for *11 oth*r alternatives *r* unchanged. 

Tha* th* procedure in ereaining th* *ff*et* of changing an 
alternative vain* for a gi**n attribute li: 

(1) S*l*rt a n*w tala* of th* attrlbat* for a gi**n alt*rnattr*. 

(2) Calcolat* th* n*W vain* of th* ■root" nod* (or th* 
given alternative using equation Ml. All other 
att*rnativ* vain** for th* "rent* nod* will r*naln 
unchanged. 

For **aapl*. 1st os look at th* *ff*ot on th* value of alternative 
F-ltl at th* overall objective BEST ACFT when alternative F-Ill 
ehang** valu* at nod* SURVIVABLE froa 40.0 to 40.0. 

Using equation CS1: 
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NEW VALUE(BEST ACFT.F-lll) a OLD VALUE<BEST ACFT,F-Ut> 


CUMULATIVE VEICHTISURVIVABLE) • 

OLD VALUE(SURVIVABLE,F-111> ♦ 

CUMULATIVE VEICKTCSURIVIABLE) • 

NEW VALUE(SURVIVABLE ( F-1S1) 


- 37.lt - 0.17 * 40 ♦ 0.17 * 00 


■ 43.01 


That i ehongo in tho tdit of tho oltornotivo F-lll ot nodo 


SURVIVABLE Orem 40 to 00 ohongoo tho voloo of tho "root 1 * nodo BEST ACFT 















PROCEDURES NODIN and FIND 

That* procadurea (found in UNIT DASSA) art used to elicit a 
single neda (bp HRN) (tom the mat, and find that node. It the selected 
noda data not aaiat tha rootinaa Mill find tha noda which la oloaaat in 
tha data struotura to what# tha Inpat noda would ha. Heat optiona (with 
tha aacaption ot HOD) will interpret the non-eaistenee of a node aa an 
indication that the uaer ia finiahed with the option, and will return 
program eontrol to the program unit which called that option. In the 
eaae of option HOD (SECHENT PROCEDURE HODPRU), additional branehaa and 
nodaa will be added to match the node entered by the uaer. 

PROCEDURE NODIN . The routine NODIN merely raada in tha uaer 
aelactad noda rafaranea number. If tha uaer entered an NRN, than NODIN 
will call FIND to aaarch for that node. 

PROCEDURE FIND . FIND aaarehea tha tree for a match to tha input 
noda. Thia ia aoconpliahed through a modified breadth-firet aaarch. 
Starting with tha top level, a erect’ nk aaarch ia conducted for an NRN 
digit match at each level. Failure to find a match at a level indicates 
that tha input noda thould be added aa a new croaalink at that level. If 
a match is found, the nest level down ia accreted (or the nest input NRN 


digit. If there ia no downlink path, than the routine ia terminated. 


Figure 1 previdea an eaaaple of the PROCEDURE TIND 
















Figure 2 Finding a Node 








routine given that tha NUN provided tram PROCEDURE NODIN was 1,1,2. 
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Thai* routine* aft uaad aitanilvalp by other option* within tha 
pragraa, whara tha uaer aaat aalaat a aiagla nada. 


IMtUimmiiEL PRET OT, and NEXT . 

Thaaa prreadataa (lannd in UNIT DASSA) ata aaad bp DABS ta 
•aquentiailp traaaraa tha tea* atraatara. PROCEDURES PRENEI and PRETOT 
ara aaad ta lndlaat* whara tha travaraal ia ta atari: at tha "reat" nada 
in tha eaaa at PROCEDURE PRETOT, ar at an; daaeandant nada in tha aaaa 
at PROCEDURE PRENEI. Tha aataal travaraal ia aecompliahad bp PROCEDURE 
NEXT. 

PROCEDURE PRENEI . Thia proeadura atleita a NRN tram tha aaar 
aaing PROCEDURE NODIN aa daaeribad abava. It a valid NRN ia antarad, tha 
prootdnra atart* tha travaraal at tha nada antarad, and cauaa PROCEDURE 
NEXT to travaraa anlp ita daaeandanta (vata ITOTL aqaal ta ana). 

PROCEDURE PRETOT . Thia procedure ea-raas tha array pointara (LVL> 
ta ba raaat ta tha top of tha arrapa »nd tata tha appreprlata flaga tar 
an antira traa travaraal UCONT, NDIFF, and ITOTL equal *«. ana). 

PROCEDURE NEXT . Thia proeadura tour* tha hlararchieal atrootora 
atartlng at location* (paolflad bp PROCEDURES PRETOT or PRENEI. Tha 
algarithn uaad la Captain Horlan'a li.provad vetaion which waa aa 
daaeribad in hi* Tachnical Report. Tha ba*ie flow 1* *hown in Figure 3. 
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rigrc* 3 Flow o! PROCEDURE NEXT 
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PROCEDURE CALC 


The calculation of eoaposita values (collapsing) lot the 
hierarchy to accomplished through • modified depth-first tour. Tha traa 
to ssaained branch by branch (that to, a path froa tha "root" noda to an 
attribute) and tha emulative weight* are calculated. Values based on 
tha attribute* ar* than eoapotad and aootgnod to the appropriate nodi. 
Tha logic for thi* process is shewn in Figaro 5. For esanple, the first 
branch that would b* asaainad would be BEST ACFT - PERFORMANCE - HI ALT. 
Tha procedure would then ealculatt* tha cuaulative weight of each node 
following tha following equation: 


CUMULATIVE WEIGHT!NODE) - CUMULATIVE VEICHT(PARENT) • 

RELATIVE VEIGHT(NODE) 

The resulting emulative weights would be BEST ACFT 1.0, PERFORMANCE 
0.14, and HI ALT 0.042. 

Tha value of the alternatives are then aultiplied by the 
euaulativr weight of the upper node*. This provide* the actual value 
eontrthat'on* of the attribute* to all parent*. For eiaapls, let us 
calculate the value of the contribution of attribute HI ALT to the 
•root" node BEST ACFT and intvraediate node PERFORMANCE for alternative 
F-4. 
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For VEST MODS: 


CONTRIBUTION OF MI ALT ■ (CUMULATIVE VEICKTCKI ALT)/ 

TO BEST ACFT CUMULATIVE VtICKTIBEST ACFT)) • 

VALVE(HI ALT,r-«) 

mirietlli: 

CONTRIBUTION OF Ml ALT ■ (0.041/1.00) • 43 

TO BEST ACFT 

■ I. IF 

For PERFORMANCE: 

CONTRIBUTION OF HI ALT ■ (CUMULATIVE VEIGHT(HI ALT)/ 

CUMULATIVE VEICHT(PERFORMANCE> » 

VALUE(HI ALT.F-4) 

- (0.042/0.14) * 43 

■ 13.3 
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For each node visited in 4 
depth-first tour 


Calculate th* cumulative weight ot the 
node, 4* th» product of lie relative 
weight and tho cumulative weight of 
it* parent node. (The euaulative weight 
of the “root" node ie 1.0) 


'THIS AN 
ATTRIBUTE^ 
\NOD£/ 


Clear ealuee 
f 0 r. 4 11 
at ternatieee 
at thie node 


For each level above the ourrent node 
for each alternative, add the product 
of the cumulative weight at thie node 
and the value of that alternative at 
thie node to the value at the upper 
ievele (nodifying ae required) 


Write the data oell to Bate etorage 


For each level up, until one ie found 
which will renain after the cal) for 
the neat node in the tour, write the 
cells information to Base storage 


Figure 5 Collapsing the Hierarchy 
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VI . Var1able Hit 


This section describes th* global variable lict whioh contains 
variables available to all units and segments In tbs dass program. Thast 
variables ean ba found in UNIT DASSA In tha program listing. 


GLOBAL VARIABLE LIST 


ANSWER STRING VARIABLE USED TO CONTAIN USER RESPONSES 

TO VARIOUS NON-SINCLE LETTER PROMPTS. 


ARAT REAL ARRAY USED TO CONTAIN THE RELATIVE VEICHTS 

AND CUMULATIVE WEIGHTS OF THE BRANCH OF THE TREE 
STRUCTURE CURRENTLY RESIDING IN THE ARRAY 


CH CHARACTER VARtABLE WHICH CONTAINS VARIOUS RESPONSES 

FOR COMPUTER PROMPTED QUESTIONS AND MENUS 


CMD STRING VARIABLE WHICH CONTAINS THE INPUTTED 

COMMAND OPTION IN RESPONSE TO THE MAIN MENU 


COMMENTSTRING STRING VARIABLE WHICH CONTAINS THE NUMBER OF 

BLANKS EQUAL TO THE CURRENT MAXIMUM COMMENT SIZE 


DISKNAME STRINC VARIABLE WHICH CONTAINS THE DISK NAME (VOLUME 

NAME) OF THE DISK WHICH CONTAINS THE NODE AND ALTERNATIVE 
DATA SETS FOR THE TREE STRUCTURE 


FILENAME STRING VARIABLE VHICH CONTAINS THE APPLE II DISK 

FILE NAME HOUSINC THE NODE INFORMATION FOR A TREE STRUCTURE 








F ILEOFSYSTEMS 


Ft AC 


I 


tCONT 


IFADO 


IF1ND 


1H AT 


ISTR 


ITOTL 


STRING VARIABLE WHICH CONTAINS THE APPLE II DISK 

FILE NAME HOUSING THE NAMES OF THE ALTERNATIVES FOR A TREE 

STRUCTURE 


INTECER VARIABLE WHICH IDENTIFIES WHETHER ADDITIONS 

AND DELETIONS FOR NODES AND ALTERNATIVES HAVE BEEN MADE AND 

THAT THE TREE STRUCTURE HAS OR HAS NOT BEEN (RE>CALCULATED. 

IF THE FLAC IS SET. WARNING MESSAGES WILL OCCUR IN OPTIONS 
OIS, REV, NUH (SEGMENT PROCEDURE KUM) AND OPTION SEN (SEGMENT 
PROCEDURE SENSITIVITT). 

0 - TREE HAS BEEN RECALCULATED 
1 - TREE HAS NOT BEEN RECALCULATED 


INTECER VARIABLE WHICH IS USED AS A GENERALIZED 
COUNTER USED THROUGHOUT ALL THE PROGRAM. 


FLACS WHETHER TO CONTINUE OP NOT IN TRANVERSINC 

TREE CREATED BY PROCEDURES PRETOT, PRENEZ, OR NEZT GROUP OF 

ROUTINES TO TRANVERSE TREE. 

0 ■ DO NOT CONTINUE WITH PROCESSING 
1 * CONTINUE PROCESSING 


FLAGS RELATIONSHIP OF 1PIND NODE TO INPUT NODE, 
X - I FIND IS PARENT TO INPUT NODE 
3 > I FIND IS BROTHER TO INPUT NODE 


POINTS TO CELL CONTAINING THE TERMINAL OF THE 
BRANCH OF NODES WHICH MATCH THE INPUT NRN VECTOR. 


INTEGER ARRAY WHICH HOUSES A BRANCH OF THE 
TREE STRUCTURE AND CONTAINS THE NODE NUMBER, 
POSITION OF THE NODE ON THE SPAN, DOWNLINK, 
CROSSLINK, BACKLINK AND UPLINK 


STRING VARIABLE AUXILIARY TO STRING VARIABLE 

ANSWER CONTAINS USER INPUTTED RESPONSES TO VARIOUS NON-SINGLE 
LETTER PROMPTS. 


FLACS TYPE OP TREE TRANVER5AL 

0 - NOT A TOTAL TREE TRAVERSAL 
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1 ■ TOTAL DOWN NODE TRAVERSAL < FROM 
INPUT NODE ON DOWN) 


l INTEGER VARIABLE VHICH IS USED AS A GENERALIZED 

COUNTER USED THROUGHOUT THE PROGRAM. 


LABELSTRINC STRING VARIABLE WHICH CONTAINS NODE LABELS 

AT THE TIME OF ENTRY (PROCEDURE SPAN IN SECHENT PROCEDURE 
DUM>:r) 


LATT CONTAINS THE LABEL FOR THE ATTRIBUTES (REGRET 

OR VALUE! 


LVL LENGTH OF LEVEL NRN VECTOR (FROM FIND). ALSO 

USED TO DETERMINE THE CURRENT DEPTH OF THE BRANCH CURRENTLY 
IN THE ARRAYS. 


NCROSS INTECER VARIABLE VHICH CONTAINS THE NUMBER OF 

NODES ON A GIVEN SPAN. USED IN PROCEDURE CROSS (UNtT DASSAt 
AND THOSE ROUTINES WHICH USE PROCEDURE CROSS (PROCEDURE DISPLAY 
(SECHENT PROCEDURE NUN) AND SEGMENT PROCEDURE SENSITIVITY). 


NDEEP THE DEPTH OF THE TREE STRUCTURE 

(MAXIMUM NUMBER OF LEVELS. HAXHUH NLVLS). SET BY 
CALC (PROCEDURE SEGMENT VVLOAD). 


NDIFF NUMBER OF LCVELS NOT MATCHED IN NRNVECTOR 

(LENGTH INPUT VECTOR) • (LENCTH OF IFIND VECTOR) 


NFLAG FLAG VHICH INDICATES WHETHER OR NOT AN 

OPEN DISK FILE IS PRESENTLY OPEN. USED IN PROCEDURE SELECTFILE 
IN SECHENT PROCEDURE DUMMY. 


NLVLS CONTAINS THE LENCTH OF THE INPUT NRN VECTOR 

(LEVEL) 


NNODES NUMBER OF NODES IN TREE 
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NODELABEL STRING ARRAY USED TO HOUSE THE TITLES 0P VARIOUS 

NODES CURRENTLY RESIDING IN ARRAYS IRAY. ARAY, AND VRAY. 


NRNVECTOR CONTAINS THE INPUT NRN VECTOR (NUMBERS) 


NSYS NUMBER Or ALTERNATIVES (SYSTEMS) TO BE CONSIDERED 


OLDCELLNUM INTECER VARIABLE USED IN PROCEDURE SPAN (&ECHENT 

PROCEDURE DUMMY) WHICH CONTAINS PRIOR CELL INFORMATION 
IN THE CONSTRUCTION OF THE TREE 


QUESTION STRING VARIABLE WHICH CONTAINS TK* PROMPT 

FOR WHICH A USER RESPONSE WILL BE REQUIRED 


RECORDID INTECER VARIABLE NOT USED 


TITLE STRING VARIABLE WHICH CONTAINS THE TITLE 

OF THE TREE STRUCTURE 


VRAY REAL ARRAY WHICH CONTAINS THE VALUES OP THE 

ALTERNATIVES FOR GIVEN NODES FOR THE BRANCH CURRENTLY 
RESIDING THE ARRAY 













SEGMENT V Jill ISLES 


This section discusser til local variables that at* «*»< in 

tbs program. Note that segments are enclosed by asterisks and 

local procedures within the segment are labelled by leading and ttalling 

asterisks. 


e UNIT DA8SA 


PROCEDURES NODEDISKTOARRAY, NODEARRATTODISX 


I INTEGER COUNTER USED TO LOAD ALTERNATIVE VALUES TO OR 

FROM VRAY TO DISX FILES 


S INTEGER ARGUMENT WHICH SPECIFIES WHICH ROW IN ARRAYS 

IRAY. ARAY, AND VRAY THE DATA IS COING TO OR CONING FROM 


*■«•» PROCEDURE NEXT »»**» 

Z INTEGER USED TO HOLD CURRENT VALUE OF LEVEL IN ARRAYS 

I RAY. ARAY. AND VRAY 


PROCEDURE FIND 


CONTFLAC INTEGER FLAC WHICH IS RESET WHEN THE INPUT NRN DOES NOT 

MATCH THE CURRENT BRANCH IN ARRAY 1RAY BUT A SIBLING 
EXISTS 
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INTEGER VARIABLE USED AS A TREE LEVEL INDICATOR 


QUITFLAC INTEGER FLAG WHICH EXITS PROCEDURE FIND 

1 - END PROCESSING 
0 a CONTINUE PROCESSING 


PROCEDURE NODIN ••••• 

I IKTECER COUNTER 


VAL STRING CONSTANT CONTAINING ALL PERMISSIBLE ELEMENTS THAT 

CAN BE IN AN NRN 


X STRINC VARIABLE USED TO EXAMINE THE USER ENTERED NRN 

ELEMENT BV ELEMENT 


PROCEDURE INTTOSTRING «t«t* 


I INTECER ARCUMENT WHICH IS INTECER TO BE CONVERTED INTO 

STRINC TEXT 


ILOHC LONC INTEGER TO CONVERT VARIABLE I (thli procedural INTO 

A STRING 


FUNCTION STRTOREAt 


FLAG INTEGER FLAC 

g - EXAMINE TEMP AS A TENS DICIT 
1 a EXAMINE TEMP AS A TENTHS DICIT 


I 


INTEGER COUNTER 







tSTR STRING INPUT ARGUMENT 


K INTECER VARIABLE WHICH STATES THE NUMBER OF PLACES 

TEMP IS TO THE RIGHT OF THE DECINAL POINT 


M INTECER COUNTER 


TEMP STRING VARIABLE CARRYINC A SINGLE OF STRINC ISTR Uhl* 

pro«*dar*> 


TENS REAL VARIABLE CONTAINING THE NUMERICAL VALUES OF THE TENS 

01CITS IN VARIABLE ISTR (this proetdar*) 


TENTHS REAL VARIABLE CONTINUING THE DECIMAL VALUES OF THE 

TENTHS DIGITS IN VARIABLE ISTR (this procedural 


VAl STRING CONSTANT CONTAINING ALL PERMISSIBLE ELEMENTS 

THAT CAN BE IN A NRN 


E REAL VARIABLE TRANSLATING THE POSITION OF TEMP Uhl* 

procedure) IN VAL (thle procedure) INTO A NUMBER 


PROCEDURE CROSS 


l INTEGER VARIABLE WHICH IS A STORACE VARIABLE FOR 

VARIABLE LVL <•** GLOBAL VARIABLES) 
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*■ 

* 


SEGMENT PROCEDURE DUMMY 




CONTROL USED BT PROCEDURE GRAPHICS TO INDICATE WHICH WIRE 

BLOCK (1..S) IS TO BE DRAWN 


PROCEDURE GRAPHICS 


ANS STRING VARIABLE WHICH HOLDS THE INPUT CHARACTER FOR 

FURTHER PROCESSING (STRING OPERATIONS CANNOT BE DONE 
ON VARIABLE CHAR) 


J INTEGER VARIABLE USED TO HOLD THE NUMERIC ASCII VALUE OF 

A CHARACTER 


E.Y INTEGER VARIABLES USED AS SCREEN COORDINATES FOR GRAPHICS 


PROCEDURE LABELS 


I,Y INTEGER ARGUMENTS WHICH INDICATE THE LOVER LEFT-HAND 

CORNER WHERE CHARACTERS ARE TO BE DISPLAYED 


Et INTEGER HOLDING CELL FOR VARIABLE E < thi* procedural 


PROCEDURE DRAVBLX 


E.Y INTECER ARGUMENTS WHICH INDICATE THE LOWER LEFT-HAND 

CORNER WHERE THE NODE BLOCKS ARE TO BE DRAWN 


























t 


SEGMENT PROCEDURE VVLOAD 




INS STRING VARIABLE VHICK HOLDS THE INPUT CHARACTER CH 

(••• GLOBAL VARIABLES) FOR TUTURE STRING OPER>TIONS 


CHI CHARACTER VARIABLE WHICH CONTAINS RESPONSE TO VARIOUS 

OPTION WVC SINGLE CHARACTER RESPONSE PROMPTS 


COLOR ARRAY USED TO IDENTIFY COLORS USED IN DISPLAYS 


EIITFLAC INTEGER FLAG USED TO INDICATE NORMAL EXIT FROM PROCEDURE 

RDV 


J.R.L INTEGER VARIABLES USED AS COUNTERS AND ARRAY INDICES 


LABEL1 STRING VARIABLE WHICH CONTAINS 'WEIGHTS' OR 'VALUE' 

DEPENDING ON THE SUB-OPTION SELECTED. USED IN OUTPUT 
DISPLAYS 


OPT CHARACTER VARIABLE WHICH CONTAINS USER INPUT SUB-OPTION 

UNDER OPTION WVC 


PPOS INTECER VARIABLE WHICH CONTAINS THE CURRENT r ; ..1AT, 

BEING DISPLAYED <1 FIRST ALTERNATIVE, ETC) 


X.Y INTEGER VARIABLES WHICH ARE USED AS THE SCREEN COORDINATES 

FOR GRAPHICS. THEY OFTEN INDICATE THE LOVER LEFT-HAND 
CORNER FOR CHARACTERS, BARS AND BOXES 


XI INTEGER VARIABLE CONTAINING THE ABSOLUTE LEFT MARCIH 

OF GRAPHICS SCREEN. USED IN INTERACTIVE GRAPHICS 


REAL ARRAY WHICH CONTAINS THE INPUTTED NEW VALUES 


M 


VRAY1 













OF ALTERNATIVES FOR A SPECIFIED ATTRIBUTE. LOADED 
INTO VRAY (••• GLOBAL VARIABLES) WHEN SUB-OPTION VALUB 
IS EXITED NORMALLY 


PROCEOURf DRAWBAR ««•«« 

A ( 1 INTECER ARGUMENT-REPRESENTING THE X AND Y SCREEN COORDINATES 

OF A COLOR BAR 


C INTECER ARCUMENT REPRESENTING THE ALTERNATIVE (laFIRBT 

ALTERNATIVE, ETC) 


V REAL ARGUMENT REPRESENTING THE WORTH VALUE OF THE 

ALTERNATIVE SPECIFIED BY VARIABLE C (thl» proctdara) 


PROCEDURE SQUARES 


A,B INTEGER ARGUMENTS REPRESENTING THE X AND Y SCREEN 

COORDINATES OF THE LOWER LEFT-HAND CORNER OF NODE 
BOXES 


PROCEDURE RDWT 


1NT INTECER VARIABLE CONTAINING TRUNCATED RELATIVE WEIGHTS 

, MULTIPLIED BY 100 


J INTEGER COUNTER AND ARRAY INDEX 


LR REAL VARIABLE USED AS THE SUM OF ALL INPUT WEICHTS FOR 

NORMALIZATION 
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PROCEDURE CALC 


QUITFLAC INTEGER FLAG W.’ICH IS SET TO ONE WHEN A BRANCH OF A TREE 

HAS BEEN PROCESSED (CUNULATIVE WEICHTS CALCULATED AND 
VALUES ASS1CNED) 


2 REAL VARIABLE WHICH CONTAINS INTERMEDIATE NODE VALUES 


a 

SECHENT PROCEDURE NUN * 


CK1 CHARACTER VARIABLE WHICH CONTAINS RESPONSES TO OPTION 

NUN SINGLE CHARACTER RESPP' PROMPTS 

F FILE OF CHARACTERS USED AS AN OUTPUT BUFFER TO THE CONSOLE 

OR THE LINE PRINTER 

J INTEGER COUNTER ANO ARRAY IHDEF 

OUT STRING VARIABLE - NOT USED 


PROCEDURE DISPLAY 


I.J.H.L INTEGER COUNTERS AND INDICES 


PROCEDURE DISPLAY! 


I .J.K.l 


INTEGER COUNTERS AND INDICES 

















PROCEDURE D1SPLAY2 


CONTROL INTLutR VARIABLE WHICH CONTAINS THE NODE DICIT VALUE 

OP A DESCENDENT DURINC GRAPHICAL DISPLAY 


riAG2 SPECIFIES PARTICULAR GRAPHICAL DISPLAY PACKAGE 

1 - DESCENDENT DISPLAY (BARS UNDER NODE BOX) 

2 - PARENT DISPLAY (BARS TO THE RICHT OF NODE BOX) 
1 * LEGEND 


J INTEGER COUNTER AND ARRAY INDEX 


X,Y INTECER SCREEN COORDINATES FOR A VARIETY OF GRAPHICAL 

ITEMS. FOR BOXES AND CHARACTERS, THEY REPRESENT THE 
LOVER LEFT-HAND CORNER 


PROCEDURE SYSBLK 


CONTROL I INTEGER VARIABLE WHICH IDENTIFIES ALTERNATIVES DURING 

COLOR BAR PRINTOUTS 


YI INTEGER VARIABLE WHICH CONTAINS THE SCALED HEICHT 

OF COLOR BARS MS VERTICAL SCREEN LINES IS 100 IN 
ALTERNATIVE VALUE) 


SEGP2NT PROCEDURE SENSITIVITY 

ittitiaittiiifittiiiiiui itia 


CHI CHARACTER VARIABLE WHICH CONTAINS RESPONSES TO SENSITIVITY 

SINGLE CHARACTER RESPONSE PROMPTS 


DELTA 


REAL VARIABLE CONTAINING THE INTERVAL SIZE BETWEEN THE 
"ROOT' NODE VALUE AXIS (X-AXIS) ON THE SENSITIVITf CRAPH 














I.J.JC.l 


INTECER COUNTESS AND ARRAY INDICES 


INDZ 

MAE 

MIN 

SENS 

SYSNAME 

SYSNUM 

tf 

WDELTA 

VHOLD 

WMAI 


INTECER CONTAINING NODE DICIT OF NODE WHEN RELATIVE 
VEICHT SENSITIVITY ANALYSIS IS CONDUCTED 


REAL VARIABLE CONTAINING THE NAZIMUM VALUE OF ALL THE 
ALTERNATIVES FOR THE ENTIRE SENSITIVITY ANALYSIS IF 
EZPANDED GRAPHICS IS EZERCISED. ELSE 100 


REAL VARIABLE CONTAINING THE MINIMUM VALUE OF ALL THE 
ALTERNATIVES FOR THE ENTIRE SENSITIVITY ANALYSIS IF 
EZPANDED CRAPH1CS IS EZERCISED. ELSE 0 


STRING VARIABLE WHICH CONTAINS THE TYPE OF SENSITIVITY 
ANALYSIS BEING CONDUCTED (CUMVT. RELVT. OR VALUE) 


STRING VARIABLE HOLDING ALTERNATIVE NAME WHEN VALUE 
SENSITIVITY IS INVOKED 


INTEGER VARIABLE HOLDING SYSNAME (this proctdurt) POSITION 
IN THE SYSTEM RECORD FILE <*•• GLOBAL VARIABLES) 


REAL VARIABLE NOT USED 


REAL VARIABLE WHICH CONTAINS THE STEP SIZE OF THE PERTURBED 
VARIABLE (CUMLATIVE WEIGHT, RELATIVE WEICHT OR ATTRIBUTE 
VALUE) 


REAL ARRAY HOLD1NC ALTERNATIVE VALUES BY ALTERNATIVES 
IN COLUMNS AND U VARIABLE PERTURBATIONS (CUMULATIVE WEIGHT. 
RELATIVE WEICHT, OR ATTRIBUTE VALUE) IN THE ROWS. ROW 0 
HOLDS THE MINIMUM PERTURBATION, ROW 10 HOLDS THE HAZIHUH 


REAL VARIABLE CONTAINING THE MAXIMUM POSSIBLE INPUT 
VALUE <10 TOR WEIGHTS AND 100 FOR VALUES) IT WNAXl 
<»hi* proc«dur«) IS LESS THAN THESE MAZIMUMS AND 















GREATER THAN VMIN, WAX IS VHAXl 


WHAX1 REAL VARIABLE VHICH CONTAINS THE USER INPUTTED MAXIMUM 

VALUE TO BE USED IN THE SENSITIVITY ANALYSIS 


VMIN REAL VARIABLE VHICH CONTAINS THE USER INPUTTED MINIMUM 

VALUE TO BE USED IN THE SENSITIVITY ANALYSIS 


X REAL VARIABLE VHICH CONTAINS THE VALUE OP THE •ROOT- 

NODE FOR DISPLAY ON THE X-AXIS OF THE SENSITIVITY GRAPH 


PROCEDURE CALCARRAY 


CONTROL INTEGER VARIABLE VHICH INVOKES THE NECESSARY SENSITIVITY 

ANALYSIS DEPENDING ON ITS VALUE 

1 > CUMULATIVE VEIGHT 

2 - RELATIVE VEIGHT 
1 a VALUE 


KEVSUM REAL VARIABLE NOT USED 


SUM REAL VARIABLE CONTAINING ONE MINUS THE RELATIVE VEIGHT 

OF THE PERTURBED NODE VHICH IS USED TO INSURE 
PROPORTIONALITY AMONG THE SIBLINCS DURING RELATIVE VEIGHT 
SENSITIVITY ANALYSIS 


VTEMP REAL VARIABLE NOT USED 


PROCEDURE HEADERS 


I INTEGER ARCUMENT VHICH SELECTS VARIOUS OUTPUT HEADERS. 

VHEK EQUAL TO TVO, I IS ALSO USED AS AN ARRAY INDEX 


PROCEDURE TASDISPLAY 












A 

r 

STAR 

V 
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X 

COLOR 


STRING VARIABLE USED TO DETERMINE REGRET (PUTTING THE 
ASTERISK ON THE LOWEST VALUE) OR NOT RECRET (PUTTING 
THE ASTERISK ON THE HIGHEST VALUE) 


FILS OF CHAR USED AS AN OUTPUT BUFFER TO CONSOLE OR LINE 
PRINTER 

INTECER VARIABLE CONTAINING THE NUMBER OF THE ALTERNATIVE 
IN ARRAY VHOLD SEGMENT PROCEDURE SENSITIVITY) WHICH 

HAS THE LOWEST VALUE (IF VARIABLE A (thif procedure) IS 
'R') OR THE HIGHEST VALUE (IF VARIABLE A ((Me procedure) 
IS NOT *R') . AN ASTERISK WILL BE PLACED BY THIS VALUE 


REAL VARIABLE CONTAINING CURRENT ’ JWEST VALUE OR CURRENT 
HIGHEST VALUE DEPENDING ON VARIABLE A (thle ptooedure) 
DURING THE SEARCH FOR THE LOWEST OR HIGHEST VALUE OF A 
CIVEN ROW OF WHOLD (tee SECMENT PROCEDURE SENSITtVITY) 


PROCEDURE CRAPH 


INTEGER VARIABLES WHICH CONTAIN THE X AND Y SCREEN 
COORDINATES WHERE THE LINES OF THE ALTERNATIVES ARE TO 
BE DRAWN ON THE SENSITIVITY GRAPH 


INTECER COUNTER 


ARRAY OF AVAILABLE COLORS USED IN THE SENSITIVITY CRAFK 
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* SEGMENT PROCEDURE READSYSTENB • 

• • 

PROCEDURE NEW «*«** 

SYSLABEL STRINC VARIABLE USED TO READ IN ALTERNATIVE LABELS 

**«*« PROCEDURE OELSYS ***•« 

SYS STRING ARRAY CONTAINING ALL CURRENT ALTERNATIVE NAMES 

PRESENTLY EVALUATED IN HIERARCHICAL STRUCTURE 

J INTEGER COUNTER 


SEGMENT PROCEDURE MOOPRU 


»*«»* PROCEDURE PRUNE »'»»i 

fLAGl INTEGER FLAG (IN PROCEDURE GRAPHICS) WHICH GOES TROM 

0 TO I IEN THE LAST NODE IS REACHED AFTER PRUNING. 

USED TO COUNT NEW NUMBER OF NODES. 

J,K INTEGER ARRAY INDEX AND COUNTERS 

NEWLVL INTECER VARIABLE CONTAINING THE NUMBER OF LEVELS IN THE 

HIERARCHICAL STRUCTURE AFTER PRUNING 




















NEWNNODES INTEGER VARIABLE WHICH CONTAINS THE NUMBER Or NODES IN 

THE TREE AFTER PRUNING 


PRAY INTEGER ARRAY WHICH CONTAINS ALL LINKS FOR ALL THE NODES 

IN THE HIERARCHICAL TREE. NODE NUMBER RUNS ALONG THE 
COLUMNS. 

ROW 1 THE NUMBER 1..NUMBER OF NODES (0 MEANS NO NODE) 
ROW 2 THE NUMBER 1..NUMBER OF NODES (ALTERED 
DURING PRUNINC - 0 IF NO NODE) 

ROW 3 NODE DICIT 
ROW 4 DOWNLINK 
ROW S CROSSLINK 
ROW i BACKLINX 


PRNUM INTECER VARIABLE CONTAINING THE NODE RrCORD NUMBER OF 

NODE TO BE PRUNED 


PROCEDURE MODIFY 


IQUIT SET FROM 0 TO I WHEN THE USER WISHES TO EXIT THE 

OPTION NOD PRIOR TO ENTERING A NEW LABEL ENTRY 



















VII. e roorta Structur* 


Th* prograa consists of several segments whieh allow* gutUi 
prograa capability. Tho following list show all th* procedures that aro 
currently In th* DASS program. Whan th* procedure Is ind*nt*d. It aeans 
that th* procedure is local to th* prograa above it. 


FROCRAN DASS; 

UNIT DASSA; 

PROCEDURE NODEDISKTOARRAT; 
PROCEDURE NODEARRAYTODISX; 
PROCEDURE NEZT; 

PROCEDURE FIND; 

PROCEDURE NODIN; 

PROCEDURE PRENEZ; 

PROCEDURE ANSVERTOQUESTION; 
PROCEDURE MASTERNODESETUP; 
PROCEDURE PRETOT; 

PROCEDURE 1NTTOSTRIN0; 
PROCEDURE NUMTOSTRINC; 
FUNCTION STRTOREAL; 
PROCEDURE CROSS; 

SECMENT PROCEDURE DUNMT; 
PROCEDURE CRAPNICS; 
PROCEDURE LABELS; 
PROCEDURE DRAVBLX; 
PROCEDURE LABELATTRIBUTES; 
PROCEDURE READTITLE; 
PROCEDURE SPAN; 

PROCEDURE INITIALIZE; 
PROCEDURE SELECTFILE; 

SECMENT PROCEDURE WLOAD; 
PROCEDURE RDV; 

PROCEDURE DRAWBAR; 
PROCEDURE SQUARES; 
PROCEDURE SETUUP; 
PROCEDURE REVT; 

PROCEDURE CALC; 

PROCEDURE WVLOAD1; 











SEGMENT PROCEDURE NUM; 

PROCEDURE OUTDEVICE; 

PROCEDURE NUMERICREVIEV; 

PROCEDURE NEVPG; « 

PROCEDURE DISPLAY; 

PROCEDURE DISPLAY?; 

PROCEDURE D1SPLAY2; 

PROCEDURE VTS; 

PROCEDURE ORAVBLK; 

PROCEDURE SYSBLK; 

PROCEDURE DISPLAYO; 

SEGMENT PROCEDURE SENST1VITY; 
PROCEDURE ANYKEY; 

PROCEDURE VARNINU; 

PROCEDURE DETERHINENODE; 

PROCEDURE SENVALUE; 

PROCEDURE CALCARRAY; 

PROCEDURE HEADERS; 

PROCEDURE TABDISPLAY; 

PROCEDURE GRAPH; 

PROCEDURE GRAPHHEADER; 

SECHENT PROCEDURE READSYSTEMLABELS; 
PROCEDURE HEW; 

PROCEDURE DELSY8; 

PROCEDURE ADOSYS; 

SEGMENT PROCEDURE MODP JU; 

PROCEDURE PRUNE; 

PROCEDURE WDOT; 

PROCEDURE RELINX; 

PROCEDURE C0MPREB8; 

PROCEDURE REWRITE; 

PROCEDURE MODIFY; 

PROCEDURE STAT; 


In tho progrin listing that follows, itch progna will oontsin s 
suaasry snelostd with asterisks (•>. In Ihs sonnary, ths naai of the 
proesdors will bs repeated. In addition, s brlof discussion of tho 
purpose or nstaro of tho proetdurt is prosontcd. Following that, t list 
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oi procedural which celt the procedure will be preeented. The ioraat 
liete the segaent the cell ie iroa end then opacities the procedure 
neae(e) in perentheees. Nett, ie e lift oi procedure ntae(s) thet the 
precedsre ealle daring ite eiecatlen. Finally, e listing oi ceriebl.es ie 
precided, being dicided into two groups. The iirst groap (libelled USED) 
indieetes these ceriebles which etc used but net changed while the 
procedure Is being eieeuted. The second group (labelled IfQpiFlES) are 
these calues which aay change during eaeeutien oi the procedure. Note 
that ii the procedure calls another procedure, ceriebles which change 
calues under tha second call wilt net appear in the original cariable 







(» PROGRAM DABS •> 


PROGRAM DAS8; CICt,S«,LPRIMTCR:*> 


PROGRAM DABS 

USE: MAIN PROGRAM FOR THE DECESION ANALYSIS SUPPORT SYSTEM. 
CONSISTS OF ONE UNIT (DASSA), SIX SEGMENTS (DUMMY. 
WLOAD.NUM,SENSITIVITY,READSYSTEMLABELS,MODPRU) AND 
ONE PROCEDURE (STAT) GLOBAL VARIABLES ARE FOUND IN 

UNIT DASSA. SEGMENT VARIABLES ARE FOUND IN THE 
VARIOUS SECHENTS AND SUB-PROCEDURES IN THE RESPECTIVE 
SEGMENTS. 

THE MAIN PROGRAM GENERALLY SETS UP THE VARIABLES 
CRITICAL IN RUNNINC OPTIONS AND SOLICITS THE COMMAND 
OPTIONS. IN EXECUTING THE DON OPTION, THE MAIN 
CLOSES ALL OPEN FILES AND ELEGANTLY RETURNS CONTROL 
TO THE DISK OPERATING SYSTEM. 

*••• NOTE • 

UNIT DASSA MUST BE COMPILED SEPARATELY AND LOADED INTO 
THE SYSTEM.LIBRARY (UNDER APPLE II PASCAL OPERATIONS) 
rOR THE REST OF THE PROGRAM TO BE COMPILED CORRECTLY. 
IN ADDITION, OPTIONS ALLOWING COTD AND MEMORY SWAPPING 
MUST BE PRESENT. 

PROGRAM USES THREE UNITS: 

UNIT DASSA CONTAINS FUNCTIONS NECESSARY TO RUN 
THE DASS PROGRAM AND CAN BE 
MODIFIED. 

UNIT TURTLEGRAPHICS CONTAINS FUNCTIONS 

NECESSARY TO CONDUCT THE GRAPHIC8 
CAPABILITY OF THE APPLE II MICRO¬ 
COMPUTER. THIS UNIT CANNOT BE 
MODIFIED BY THE USER. 

UNIT APPLESTVFF CONTAINS THE FUNCTION WHICH 

ALLOWS THE COMPUTER TO WAIT UNTIL A 
SINGLE KEY IS DEPRESSED (KEYPRESS) 
THIS UNIT CANNOT BE MODIFIED BY THE 
USER. 

CALLED BY: (non*) 

ROUTINES CALLED SEGMENT PROCEDURE DUMMY 
SEGMENT PROCEDURE WVIOAD 
SECMENT PROCEDURE NUN 
.SEGMENT PROCEDURE SENSITIVITY 
SECMENT PROCEDURE READSYSTEMLABELS 
SECMENT PROCEDURE MODPRU 
PROCEDURE STAT 


(( 


VARIABLES: 











(• PROGRAM DABS •> 


USED: TEN8TR1NG,TITLE,LATT,NNODES,NDEEP.NSYS,FLAG 
UNIT DASSA) 

MODIFIED: CMD.NODEIRATIONALE,NODETITLE.CELLNUMBBR, 

NRNDIGIT,DOWNLINK,CROSSLINK],FLAG,NSYS,NFLAC, 
NDEEF,COMMENTSTRINO,LABELSTRING,IRAY 
(in UNIT DASSA) 


USES DASSA, APPLESTUFF, TURTLEGRAPHICS; 
















/ 



(• UNIT DASSA •> 


<MC*,S» *> 

UNIT DASSA; 

(* ufiimiiitttiiiitttiitutmtiiiMtMHttmHMMitMtim 

• UNIT DASSA • 

• USE: CONTAINS THE GLOBAL VARIABLE LISTING AND • 

• PROCEDURES WHICH ARE UNIVERSAL TO ALL * 

• SEGMENT PROCEDURES. THE UNIT IS NOT CALLED « 

• EXPLICITLY, BUT IS USED WHENEVER THE PROCEDURES * 

• IN IT ARE CALLED. • 

• CALLED BY: (non*) • 

• ROUTINES CALLED: (non*) • 

• VARIABLES: • 

• USED: (i'll)!) * 

» MODIFIED: (non*) • 

t«t*««««*< •> 


INTERFACE 

CONST 

NAXSYSTEMSaS; 

MAXLABELSIZEalO; 

MAXCOMMENTS IZEaA4i 
MAXARRAYSIZEa10; 

MAXNUMBEROFNQOESalQl; 

TENSTRINGa' •} 

VAR 

COMMENTSTRING,LABELSTRING,FILENAME,ANSWER,F1LE0F5YSTEMS,DISKNAME : STRING; 
CH:CHAR; 

NSYS,I,RECORDID,NLVLS : INTECER; 

CMD.ISTR.LATT.TITLE,QUESTION : STRING; 

ICONT,IF ADD,1,LVL, 

FLAC.NFLAG.NCROSS,I FIND,1T0TL,NDEEP.NDIFF,NNRN,NHODEB,OLDCELLNUM : 

: INTECER; 

NODELABEL : ARRAYIO..MAXARRAYSIZE1 OF STRING; 

IRAY : ARRAYI0..NAXARRAVSIZE.O..5J OF INTECER; 

ARAY : ARRAYIO. MAXARRAYS IZE,I..21 OF REAL; 

VRAY : ARRAY!0..MAXARRAYSIZE,1..MAXSYSTEMS) OF REAL; 

NRNVECTOR : ARRAY t0..MAXAHRAYSIZE) OF INTECER; 

NODE:FILt OF RECORD 

NODETITLE : STRINCtMAXLABEl IZEJ; 

CELLNUMBER, NRNDIGIT, DOWNLINK, CROSSLINK, BACKLINK : INTECER; 









HELVEICHT, CUMVEICHT : RIAL; 

SYSTEMVALUES : ARRAY U..WAXSYSTEMSI OF REAL 
RATIONALE : STRINC(MAXCOMMENTSIZE); 

END; 

SYSTEMS:FILE OF RECORD 

SYSTEMNAME : STRINCCMAZLABELSIZE) 

END; 

<* FROCEDVRE8 IN DASSA *5 

PROCEDURE NOOEDISXTOARRAYIZ:INTEGER); 

PROCEDURE NODEARRAYTOD1SKIZ:INTECER)t 
PROCEDURE NEXT; 

PROCEDURE FIND; 

PROCEDURE NOOIN; 

PROCEDURE PRENEZ; 

PROCEDURE ANSVERTOQUESTION; 

PROCEDURE MASTERNODESETUP; 

PROCEDURE PRETOT; 

PROCEDURE INTTOSTRINCI1:INTECER); 

PROCEDURE NUMTOSTRINC(X.REAL); 

FUNCTION 8TRT0REAL(ISTR;STRINC):REAL; 

PROCEDURE CROSS; 


IMPLEMENTATION 














<• UNIT DASSA *) 


PROCEDURE NODEDISKTOARRAY; 


PROCEDURE NODEDISKTOARRAY • 

USE: TO TRANSFER DATA READ IN FROM RECORD • 

NODE TO THE IRAV ARAT, AND VRAY. * 

REQUIRES AN ARC -ENT WHICH IS EQUAL T9 • 

THE PARTICULAF iOW (SPECIFIC NODE AT A • 

SPEC’FIC LEVI, in THE TREE) IN THE ARRAYS. • 

CALLED BY: UNIT DASSA (NEXT, CROSS, FIND) « 

SEGMENT PROCEDURE DUMMY (SELECTFILE) • 

ROUTINES CALLED: (non*) • 

VARIABLES: * 

USED: NODEICELLNUMBER.NRND1CIT,DOWNLINK * 

CROSS LINK,BACXLINK,R E LVE t CKT,CUMVEICHT * 

SYSTEMVALUEStI..NSYS),NODETITLE) • 

NSYS (*•• UNIT DASSA) • 

MODIFIED. NODELABEL. IRAY, ARAY, VRAY (••• • 

UNIT DASSA) • 

1 («•• PROCEDURE NODEDISKTOARRAY) • 

»•*«••*••••••*••**•*•••*•**•*•••••«•***•••«••«*•*••**•• *> 


I:INTECER; 

BEGIN 

WITH NODEA DO 
BEGIN 

NODELABELIX):»NODETITLE; 

IRAYCl.OJr-CELLNUHBER; 

IRAYIX,I):vNRNDIGIT; 

1RAYIX,21:aDOWNLINK; 

IRAYC X,31:•CROSSLINK; 

IRAYIX,4):-BACKI.INXi 
ARAYCX,11:aRELVEIGKT; 

ARAYtX,2):■CUMWEICHT; 

FOR I:■1 TO NStS DO VRAY!X,13:aSYSTEMVALUESt11; 

END 

END: (• END TRANSFERRING RECORD NODE DATA FROM DISK TO ARRAYS •) 


SB 








PROCEDURE NODEARRATTOD1SX; 


PROCEDURE NODEARRAYTOOISK 

USE: TO TRANSFER DATA READ IN FROM ARRAYS IRAY, 

ARAY, VRAY, AND NODET1TIE TO RECORD NODE. 
REQUIRES AN ARGUMENT WHICH IS EQUAL TO 
THE PARTICULAR ROW (SPECIFIC NODE AT A 
SPECIFIC LEVEL IN THE TREE) IN THE ARRAYS. 
CALIED BY: SEGMENT PROCEDURE DUMMY (SPAN) 

SECMENT PROCEDURE VVLOAD (RDWT.RDV,CALC) 
ROUTINES CALLED: (i.tni) 

VARIABLES: 

USED: NODELABEL, IRAY, ARAY, VRAY, NSY8 
(••• UNIT DASSA) 

HODIFI ED: NODE t CELLNUMBER,NRNDIGIT,DOWNLINK, 

CROSSLINK,BACXLINK,RELWEIGHT,CUHWEICHT 
SYSTEMVALUESI1..NSYS),NODETITLE) 

(••• UNIT DASSA) 

I (••• PROCEDURE NODEARRAYTODISK) 


VAR 

I : INTECER; 

BECIN 

WITH NODE* DO 
BEGIN 

NODETITLE:■NODELABELCXI; 

CELLNUMBER:-IRAY!Z,01; 

NRNDIGIT:.IRAYtZ,11; 

DOWNLINK:■IRAYIX.ZJ; 

CROSSLINK:.IRAYCZ,3 3; 

BACKL1NK:.IRAYtX,4 3; 

RELWEICHT:.ARAYtZ,11} 

CUMVEICHT:.ARAY(Z,21; 

FOR 1.1 TO NSYS DO SYSTEMVALUESI11:.VRAYCZ,11; 

END 

ENO; (* END TRANSFERRING RECORD NODE DATA FROM ARRAYS TO DISK •> 
















PROCEDURE NEXT; 


<* UNIT DA3SA *) 


PROCEDURE meet 

zi Kj's.'i.n" 

MCUUn ut IBm" , '* ™ E VMtMtU 

AHD PRETOT, then THE RDUTtwI ™ 0CE00UES PREWE* 
THE DEPTH-FIRST sn»,-u DUTm WIU PERF °RH THE 

1» ACCESSED EACH TIKE THAT D p« B J N ° CE ‘ A NEW N0M 
called. that M0 «cure NEXT is 

CALLED BY: SECHEMT PROCEDURE DUMMY (SPAN) 

ROUTINES CALu; EN J N f! 0ErDUfiE Wt0 « ‘WVLOADD 
VARIABLES- OASSA (NODEDI9KTOARRAY) 

USED; NDIFF (st« UNIT DASSA) 

«„ 

* <••• PROCEDURE NEXT) 


tABEt t; 

VAR 

2 : INTEGER; 

BEGIN 

IFdHAYtLVL, JI <. o, 

THEN 

begin 

1 lr ‘dVL<«i >OR(LVl.NOIFF)) 
THEN ICONT:«0 

ELBE 

BECIN 

I:-LVC; 

THEN 

BEGIN 

LVL.LVI-); 

COTO 1 
CND 


ELSE 

bxcim 


* 
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SEER <NOOB,1RATI tVl.I)) 
CtTlNODE) , 
MOSED1SXTOARRAT (Z>; 
IRAK Z, 3J: alRAYCLVl,, ft) 
tVl:-I 
INS 

END 

D 

SC 

KC1N 

Z: »IVI«S; 

IFURAYCZ.OJ.IRATtLVl.Jl) 

THEN LVt:>Z 


ELSE 

BEGIN 

SEEKINODE,IRAYCLVL,tJ)j 
CET(NODE); 
NODEDISKTOARRAY(Z); 
IRAY[Z,S1:aIRAYCIVL,0); 
LVl:aZ 












«u»r 



C* UNIT DASSA • 


PROCEDURE FIND; 


• PROCEDURE FIND • 

■ USE: THIS PROCEDURE SEARCHES THE TREE FOR A MATCH • 

• TO THE INPUT NODE INPUTTED IF PROCEDURE KODIN * 

• UNIT DASSA. t 

• CALLED 8T: UNIT DASSA (NODIN) • 

• ROUTINES CALLED: UNIT DASSA (NODEDISXTOARRAY) • 

• VARIARLES: • 

• USED: IFADD,IFIND.NDIFF,I RAY,NRNVECTOR • 

• (••• UNIT DASSA) • 

• MODIFIED: IFADD,IFIND.NDIFF,ICONT,LVL • 

• (••• UNIT DASSA) • 

• J, Z,CONTrLAC,QUITFLAC • 

• («•• PROCEDURE FIND) t 

limmitltltlttttttMtlllltltlHtttlHIttllltlHIMII •) 

VAR 

CONTFLAG,QUITFLAC.J.Z : INTECER; 

BEGIN 

OUITFLAC:-0; 

IFADOr-Z; 

IFIND:.lj 

NDIFF:-0; 

J:-I) 

REPEAT 

BEGIN 

CONTFLAG: .1 ; 

IF(IRAY(J,11.NRNVECTOR!J1> 

THEN 

BEGIN 

IF <J.NLVLS) 

THEM 
BEGIN 
ICONT:■I; 

LVL:a J; 

OUITFLAC:■! 

END 

ELSE 

1ECIN 

IF <IRAYC J,21(1) 

THEN 

SECIN 


5« 



































(• UNIT DASSA 


PROCEDURE NODIN: 

(• IIHMIIIMM 


PROCEDURE NODIN • 

USE: READS IN USER INPUTTED NODE REFERENCE NUMBER. A 
HAS THE CAPABILITY TO FILTER NON-NUMERIC • 

INPUTS. IF AT LEAST ONE NUMBER HAS BEEN • 

ENTERED, PROCEDURE FIND WILL BE INITIATED. • 

CALLED BV: UNIT DASSA (PRENEI> * 

SEGMENT PROCEDURE NUN (DISPLAY) • 

SEGMENT PROCEDURE HODFRU (MODIFY) • 

ROUTINES CALLED: UNIT DASSA (FIND) • 

VARIABLES: • 

USED: VAL <••• PROCEDURE NODIN) * » 

MODIFIED: NLVLS,ICONT.NRNVECTOR..ANSWER • 

(Ml UNIT DASSA) • 

l.E (•«• PROCEDURE NODIK) • 


CONST 

VAL-'01S»<3S7Sf; 

VAR 

I:INTEGER: 

I .'STRING: 

BEGIN 

VRITELN(OUTPUT); 

VRITELN(OUTPUT.'ENTER...NRNf'); 

REAOLHtINPUT.ANSWER); 

ANSWERr-CONCATC ANSWER): 

NLVLS:-0: 

ICONT:*0: 

NRNVECTORI01:-8; 

FOR I:-I TO LENCTH(ANSWER) DO 
IECIN 

I.-COPY(ANSWER,I,1>: 

1F (P08 (I.VADOO) 

THEN 

BEGIN 

NLVLS.-NLVLS*!; 

NRNVECTORtNLVLSl:-POS(X,VAL)•I i 
END 
END: 


Si 












<* UNIT OAStA •) 

IP(NEVER)o> 

THIN FIND 


D; <• CNO PROCEDURE MOOIN *) 














(• UNIT Dim •) 



PROCEDURE PRIMES; 


PROCEDURE PRENEI • 

USE: ELICITS S NODI REFERENCE KUNRER PROH TNI USER • 
AND ir VALID. STARTS THE TREE TRAVERSAL AT • 
NODE. • 

CALLED ST: SEGMENT PROCEDURE DUHHT (SPAN) • 

SECHENT PROCEDURE WLOAD (WLOADt) • 

SECHENT PROCEDURE HUH • 

SECHENT PROCEDURE HODPRU (PRUNE) • 

ROUTINES CALLED: UNIT DASSA (NODIN) • 

VARIARLES: • 

USED: LVL.ICOMT (••• UNIT DASSA) • 

HOD!TIED: NDirP.ITOTL (■•• UNIT DASSA) • 

IIMItIHMIUtllltlilHIIIHHMttHMHMtMHtHI •) 


SECIN 

NODIN; 

miCOKTOO) 

THIN 

SECIN 

MO!FP:aLVL; 
ITOTL:.0 
END 
END; 


(* END PROCEDURE PRENEX •) 


















PROCEDURE ANSWERTOOUESTION 




PROCEDURE RN8VERTOOUE1T1ON • 

USE: WRITES OUT A PROMPT CARRICO IT TME VARIAIIE • 

OUE8TIOH AND ACCEPTS A RESPONSE TMROUCHT TME • 

VARIABLE ANSWER. LOOPS UNTIL TME LETTER 7 OR M • 
IS DEPRESSED FOLLOWED ST A CARRIACS RETURN. • 

CALLED ST: SEGMENT PROCEDURE WVLOAD (RDWT) • 

ROUTINES CALLED: (BOB*) • 

VARIABLES: • 

USED: QUESTION <••• UNIT DASSA) • 

MODIFIED: ANSWER UNIT DASSAI • 

• •iiHmniitiiinMiMHHiMitimmiiuiMHtmii •> 


SECIN 

REPEAT 

SECIN 

WRITE(OUTPUT.OUESTIONIi 
READLN(INPUT,ANSWER) 

END 

VNTIl((ANSWER*•T 1 >OR<ANSWER.'N•>> 

END: (• END PROCEDURE ANSWERTOOUESTION •» 









(• UNIT DAM* 

PROCEDURE HASTERNODESSTUP; 


PROCEDURE HASTERNODESETUP 

USE: INITIALIZES THE VARIABLES AND ARRAYS WHEN CREATING 

A NEV TREE STRUCTURE 

CALLED ST: SECHENT PROCEDURE DUMMY (SPAN,INITIAL!ZC> 
ROUTINES CALLED: <«•»•> 

VARIABLES: 

USED: (noa«) 

MODIFIED: NNODEB,NODELABEL,IRAY,ARAY.LVL 
UNIT DASSA)) 


SSCIN 

NNODESraO; 

NODELABELCI):■’MASTER*i 

TOR I.aO TO 4 DO iRAYt0,11:a»; 

ARAYC0,1):a0; 

ARAYt0,2>:a0; 

LVl:a« 

END; <■ END PROCEDURE MASTERNODXSETUP •) 








(• UNIT DASSA •> 




procedure pretots 

• procedure pretot 

• VSC: SITS AMAT POINTERS TO THE TOP Or THE TREE STRUCTURE 

« to racpxac tor ah entire traversal 

■ CALLED IT: SEGMENT PROCEDURE DUHNV (SPAN) 

• SCCHENT PROCEDURE WIOAD (WVLOADI,CALC) 

t SCCHENT PROCEDURE NUH 

• SCCHENT PROCEDURE KOOPRU (PRUNE) 

• ROUTINES CALLED: <aan«) 

• VARIABLES: 

• USED: KHODES (••• UNIT DASSA) 

• MODiriSD: ICONT.NDIFP,LVL,ITOTL (••• UNIT DASSA) 


BECIN 
ICONT:•IS 
NDirr:-i: 

LVl:.li 
ITOTL:-l; 

lriNNODESd) THEN I CONT:-0 
END; (• END PROCEDURE PRETOT •) 








<• UNIT DUU •> 


PROCEDURE IKTT08TRINC; 


FROCEOURE INTTOSTRINC 

USE: TRANSLATE AN INTECER VALUE INTO A CHARACTER STRING 

SO THAT IT CAN BE PRINTED ON CITHER THE CONSOLE OR THE 
PRINTER IN EITHER THE TEXT OR CRAPHIC NODE. 

CALLED BT: SECHENT PROCEDURE WLOAD (SETUP) 

SECMENT PROCEDURE NUN (NUHERlCREVIEV.DISPLAT1) 
SECHENT PROCEDURE SENSITIVITY (HEADERS) 

ROUTINES CALLEO: 'aon*> 

VARIABLES: 

USED: I (••• PROCEDURE INTTOSTRINC) 

HODirtED: ISTR (••• UNIT DASSA) 

I LONG (■•• PROCEDURE INTTOSTRINC) 




VAR 

I LONG-.INTECER; 

BEGIN 
I LONG:■I; 

STR<1LONG,ISTR); 

I8TR:aCOPT(ISTR,LENCTH(ISTX),1); 

END; (■ END PROCEDURE INTTOSTRINC •) 











* 


I 


i 


PROCEDURE NUMTOBTRING; 


(* UNIT DASSA •> 




t 


PROCEDURE NUNT08TR1NC 

USE: TRANSLATE AN REAL NUNIER VALUE INTO A CHARACTER STRING 
SO THAT IT CAN BE PRINTED ON EITHER THE CONSOLE OR THE 
PRINTER IN CITHER THE TEXT OR CRAPHIC NODE 
CALLED BY: SEGMENT PROCEDURE WLOAO <RDV> 

SECHENT PROCEDURE NUM (DISPLAY!,VTS> 

SEGMENT PROCEDURE SENSITIVITY (CRAFK.CRAPHHEADERSI 
ROUTINES CALLED: (non*) 

VARIABLES: 

USED: X <••• PROCEDURE NUMTOSTRIMS) 

MODIFIED: ISTR lilt UNIT DASSA) 

I LONG (••• PROCEDURE NUMTOSTRINC 


* 


VAR 

I LONG 


INTEGER; 


1 


BEGIN 

I LONG:-TRUNCl100*1); 

STR(I LONG,I8TR); 

IT <I LONG*I OS) THEN 1ST*:.CONCAT(,ISTR); 
INSERT < *.',ISTR.PRED(IENCTH<ISTR))>; 

ISTR:-CONCAT<• ’.ISTR); 

ISTR:-COPT(ISTR,LENGTH*ISTR)-5,4) 

END; 


I 


i 


i 


i 


n 














(• UNIT DUlJk •> 


FUNCTION STRTOREAL; 


FUNCTION STRTOREAL 

USE: TRANSLATE A STRING VARIABLE AND RETURNS A REAL VALUE. 
CAPABLE OF FILTERING NON-NUNERIC CHARACTERS FROM THE 
INPUT STRING. 

CALLED IT: SECHENT PROCEDURE WLOAD (RDV.RDVT) 

SECHENT PROCEDURE SENSITIVITT(DETERNINENODE) 
ROUTINES CALLED: (•>«••) 

VARIABLES: 

USED: ISTR (••• UNIT DASSA) 

VAl (••• FUNCTION STRTOREAL! 

MODIFIED: FLAG,X.TENS.TENTHS.I,TEHP,J.X,« 

FUNCTION STRTORCAL) 


CONST 

VAL«‘ 31 IJ 4547 IP . * ; 

VAR 

TENS.TENTHS,E:REAL; 

I,J,K,M,FLAG:INTECERj 
TEMP:STRINC; 

BEGIN 
FLAG:■>; 

K: ■ I; 

TENS:-I; 

TENTHS:» 0 ; 

FOR I:.I TO LENCTHIISTR) DO 
BEGIN 

TEMP:.COPT(ANSWER,I, 1 ); 

J -POS(TEMP.VAL)i 
ir<JOB> 

THEN 

BECIN 

if< j-m 

THEN FLACr-l 


IF <FLAC. | ) 

THEN 
BECIN 
I .J-t, 

FLAG :* I ; 

FOR M: .1 TO F DO E •!/10; 


4 4 








TENTHS:■TENTHS*!; 

END 

ELSE 

BEGIN 

X.-J-I; 

TENS:.TENS*104I 
END 

END 

END; 

STRTOREAL:■TENS»TENTHS 
END; <• END FUNCTION STKTOREAL •> 












(• UNIT DASSA • 


i 


PROCEDURE CROSS; 

(• ttttt•«***••••* 

« PROCEDURE CROSS 

• USE: PLACES ALL THE NODES OP A OESCENDENT SPAN IN THE ARHATS • 

• UNDERNEATH A CIVEN NODS. • 

• CALLED BP: SEGMENT PROCEDURE NUN (DJSPLAV.DISPLATO) • 

• SEGMENT PROCEDURE SENSITIVITY (DETERMINENODE) • 

• ROUTINES CALLED: UNIT DASSA(NODEDISKTOARRAY> • 

• VARIABLES: • 

• USED: (noil*) • 

• MODIFIED: LVL.NCROSS,IFADD,IRAY • 

• (Ml UNIT DASSA) • 

• L (»•• PROCEDURE CROSS) ■ 

(HltMHIIIHttlHtttllttUOtHIHMHmnitHHIIItUltHt • > 

VAR 

t:INTEGER; 

SECIN 
L:aLVL; 

NCROSS:»0; 

IFADD:«S > 

VHILEdRAYILVL. IFADDIOO) DO 
BEGIN 

LVl:»LVL*l; 

IRAYCLVL.01:.IRAYtLVL-I.IFADDJ; 

SEEK(NODE,IRAY(LVL>01); 

CET(NODE); 

NODEDISKTOARRAY(LVL); 

IFADD.aS 

END; 

NCROSS:aLVL-L; 

LVl:-l 

END; <• END PROCEDURE CROSS «> 


H 























(• UNIT DASSA •> 


t. C'HENT PROCEDURE DUMMY j 

• SEGMENT PROCEDURE DUMMY * 

• USE: THIS SECMENT CONTAINS THOSE ROUTINES WHICH ARE • 

• USED TO GENERATE NEW TREE STRUCTURES. IN ADDITION, • 

« THIS SECMENT IS USED WHEN OPENING NEW DISK rtLES * 

« FOR SUBQUEKT ACTIVITY. * 

• CALLED BY: DASS • 

> ROUTINES CALLED: SEGMENT PROCEDURE DUMMY (GRAPHICS, • 

• LABELATTRIBUTES,READTITLE■SPAN, • 

• INITIALIZE, SELECTFILE) » 

• VARIABLES: • 

• USED: CMD • 

• MODIFIED: (non*) • 

iiitittitiMiiiititttttoitttitmittuimtittittitiitttiii •) 

VAR 

CONTROL:INTEGER: 


(I 









<• SECMENT PROCEDURE DUMMY •) 


PROCEDURE GRAPHICS; 


PROCEDURE GRAPHICS • 

USE. THIS PROCEDURE IS CALLED ST SPAN TO CREATE A • 

CRAPHICAl DISPLAT OP THE TREE STRUCTURE AS IT IS • 
CREATED. THIS CRAPHICAL FACKACE DRAWS THE WIRING • 

TREE DIACRAM AS WELL AS HANDLES THE LINKACES FOR • 

INPUTTING NODE LABELS INTO THE TREE STRUCTURE. * 

THIS PROCEDURE HAS TWO SUBORDINATE PROCEDURES • 

(LABELS and DRAWBLK) WHICH AID IN THE CRAPHICS • 

DISPLAT. • 

CALLED ST: SEGMENT PROCEDURE DUMMY (SPAN) • 

ROUTINES CALLED: SEGMENT PROCEDURE DUMMY (LABELS,DRAWBLK) • 
VARIABLES: • 

USED: NODELABEL («aa UNIT DASSA) • 

CONTROL <taa SEGMENT PROCEDURE DUMMY) • 

MODIFIED: ANSWER <••• UNIT DASSA) • 

E.Y.ANS • 


VAR 

I,Y<<): IN1ECER; 
ANS:STRING: 

























(• SECHENT PROCEDURE DUMMY •) 


PROCEDURE LABELS(X,Y:INTEGER); 


PROCEDURE LABELS • 

USE: SUBORDINATE PROCEDURE TO PROCEDURE CRAPNICS. THIS • 

PROCEDURE ENABLES CHARACTER INPUT FROM THE USER • 

TO 8E DISPLAYED IN "REAL TINE 1 * ON THE MONITOR IN • 
THE CRAPHICS NODE. THE ARCUMEHTS USEO IN THIS « 

PROCEDURE ARE THE SCREEN COORDINATES Or THE * 

LOVER LEFT CORNER WHERE THE FIRST CHARACTER IS TO * 
BE DISPLAYED. BACKSPACE FUNCTION IS AVAILABLE. • 

ENTRY TERMINATES WHEN ANT OF THREE CONDITIONS ARK • 
NET: • 

1) THE WORD DONE IS TYPED • 

2) WHEN THE RETURN KEY IS DEPRESSED • 

3) WHEN MORE THAN IB CHARACTERS (NOT • 

INCLUDING BACKSPACED CHARACTERS) ARE * 

ENTERED • 

CALLED BY: SECHENT PROCEDURE DUMMY (GRAPHICS) • 

ROUTINES CALLED: (non*) * 

VARIABLES: • 

USED: (non*) • 

MODIFIED: E.Y.EI • 

ANSWER,CH (*•• UNIT DASSA) • 

J.ANS (••• PROCEDURE GRAPHICS) • 

• lutimnHmiitttiiiMiitHiiiimtitiiMiHmiituM «> 

VAR 

El'.INTEGER; 


8ECIN 

Xl:-X; 

ANSWER:-" ;ANS:-* 
MOVETO(X.Y); 

REPEAT 

BEGIN 


REPEAT 

UNTIL KEYPRESS; 
READ(CH) ; 

ANSI1):-CH; 

4 «ORD<CH>; 

IF(NOT EOIN) 


70 













(• SEGMENT PROCEDURE DUMMY •> 


THEN 

REGIN 

IP(JOI) 

THEN 

BEGIN 

IF(CH«' *> THEN CH:«* *j 
VCHAR(CM >i 

ANSWER:.CONCAT<ANSWER,ANS); 

END 

ELSE 

IF(II<X) 

THEN 

BEC1N 

MOVETOtX-7,Y>; 

WCHARC * )i 
NOVETOt X-7,Y>: 

ANSWER:-COPY<ANSWER,1,tLENGTH!ANSWER)-1»)s 
I:.E-7 
END; 

RND; 


END 


UNTIL ((ANSWER.'DONE')OR(EOLN)OR(LENGTH(ANSWER)>.10)); 







(* SECHENT PROCEDURE OUHKT •> 


PROCEDURE DRAWBLKIX,Y:INTECER); 


PROCEDURE DRAWBLK (I,Y:INTEGER) ■ 

USE: DRAWS RECTANGLES CONTAINING NODE LABELS. THIS • 

PROCEDURE IS SUBORDINATE TO PROCEDURE GRAPHICS. THE • 

TWO ARGUMENTS REPRESENT THE LOWER LEFT CORNER OP THE • 
RECTANGLE. THE RECTANGLE IS DRAWN BY COLORING THE • 

ENTIRE RECTANCLE AREA WITH THE DESIRED RECTANGLE • 

COLOR OUTLINE AND IS THEN PILLED IN BY THE BACKGROUND « 
COLOR. • 

CALLED BY: SECHENT PROCEDURE DUMMY (GRAPHICS) • 

ROUTINES CALLED: (noaa) • 

VARIABLES: • 

USED: I.Y • 

MODIFIED: (non*) • 

'•••****•*****•*•••••••••••••••••••• , •*****•*****•*•*••*•*• •) 


VIEWPORT*!,X»73,Y,Y*1J>; 
FILLSCREEN(GREEN); 
VIEVPORT(I*i.X»73,Y»t.Y*ll); 
FILLSCREEN(BLACK); 
VIEWPORTS, Z77 ,0,171) 

















(• SEGMENT PROCEDURE DUMMY •> 


(• 


t 


• START PROCEDURE GRAPHICS 




■ECIM 

ANSWER:-* 

CASE CONTROL OP 


1: 

BEGIN 

I:.103; Y:-m ; DRAVSLKCt.Y); 

ANSWER:-MODELABElfLVLl; 

KOVETO<107,110); WSTRINGlANSWER)j 
I:-9; Y :-1II: DRAWBLK(X.Y) ; 

MOVETO(137,171); PENCOLOR(CREEN); 

MOVETO(137,141); MOV£TO(If.141>. MOVETOIIf,lit); 
PENCOLOR<NONE); 

LABELS(2«2,Y«2) 

END; 

2 : 

SECIN 

X:-103; Y-.-113; DRAWBLK(E,Y); 

MOVETOII If,141); 

PENCOLOR(GREEN); MOVETOIIIP,130; 

PENCOLOR(NONE); 

IA8ELS(X*2.Y»2> 

END: 

I: 

BEGIN 

X: -20 9 i Y:-1H; DRAWBLK(X, Y) ; 

MOVETOIIIf,141); PENCOLOR(GREEN); 

MOVETOdlf , 141) ; MOVETO(2If ,124): 

PENCOLOK(NONE); 

LABtLSt 2*2,Y«2) 

END; 


4: 

BEGIN 

I;-33 ; Y:-43; DRAWBLK(X,T); 
MOVETO(f),141); PENCOLOR(GREEN>; 
KOVtTOlf1,31); PENCOLOR(NONE); 
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u 


(* 3CCNENT PROCEDURE OUKKT •> 


LAIELX Z«1 , 1 * 1 ) 
END; 


5: 

iecin 

I:*13S; Y:«4i; DXAVBLX(I.Y); 
MOVtTOlIt',111); PENCOLOR(GREEN); 
HOVETOUYl.il); PENCOLOXINONE); 
tABEl*(X«t.Y«2> 

END; 


tND 

END; (• END CRAPHICB »> 
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(* SEGMENT PROCEDURE DUHHY •> 


PROCEDURE LASELATTRISUTES; 


PROCEDURE LABELATTRllUYES 

USE: USED TO SUPPORT OPTION ATT WHICH ALLOWS THE USER 
TO ENTER THE ATTRttUTC CHARACTERISTIC. THE USER 
IS ALLOWED TO ENTER ANT STRING: HOWEVER. ANT 
CHARACTERISTIC ENTERED WITH A R WILL BE ASSUNNED 
BT THE SENSITIVITY ANALYSIS TO BE RECRET AND WILL 
ANNOTATE THOSE ALTERNATIVES WITH THE LOWEST VALUES. 
CALLED BT: BECHENT PROCEDURE DUMKT 
SOUTINES CALLED: <*•■•) 

VARIABLES: 

USED: COHHENTBTRINS.HAXLABELSIZE (••• UNIT DAS8A) 
MODIFIED: LATT (••• UNIT DASSA) 




BECIN 

PAGE(OUTPUT): 

WRITELN(OUTPUT.'ENTER ATTRIBUTE CHARACTERISTIC *); 
WRITE(OUTPUT,’(REGRET OR VALUE)P *>; 

READLNtINPUT.LATT); 

LATT: bCOPT( CONCATILATT.LABELSTRING > ,I,MAILABELS IZE); 
END: <• END LABEL ATTRIBUTES CHARACTERISTICS »> 











(* SEGMENT PROCEDURE DUMMY •) 


PROCEDURE READTITLE; 


PROCEDURE READTITLE • 

USE: PROCEDURE USED TO ALLOW THE USER TO ENTER THE TITLE • 
Or THE TREE STRUCTURE WHICH WILL 8E RE-DISPLAYED • 

IN VARIOUS REVIEW TYPE OPTIONS. USED TO SUPPORT • 

OPTION TTl. * 

CALLED BY: SECHENT PROCEDURE DUMMY • 

ROUTINES CALLED: • 

VARtABLES: * 

USED: COMMENTATEINC.MAXCOMMENTS!SB (••• UNIT DASSA) • 

MODIFIED: TITLE (••• UNIT DASSA) • 

iitiHMitiurtHiittimiiHtmitiiHiHiiitiitmiHM • ) 

SECIN 

PACE(OUTPUT); 

VRITSIN*OUTPUT,‘ENTER A TITLE FOR THIS DATA STRUCTURE •)} 
READLNtINPUT,TITLE); 

TITLE:.COPY(COMCAT(TITIE.COKMENTSTRINC).I.MAECOMMENTSIIE) 
END; (• END READ TITLE FOR DATA STRUCTURE •> 


7 i 

















(• SECMENT PROCEDURE DUMMY • > 

PROCEDURE SPAN: <• SPAM •> 


PROCEDURE SPAN 

USE: USED TO SUPPORT OPTION BPS AND IN THE CREATION OP A 
NEV TREE STRUCTURE. THIS ROUTINE TAXES ADVANTAGE OP 
THE CRAPHICS CAPABILITIES OP THE APPLE tt MICRO- 
COMPUTER. USINC SUBROUTINE CRAPHICS, THE USER ENTERS 
THE ATTRIBUTES (NODES) DIRECTLY ONE THE SCREEN WITHIN 
THE WIRING DIACRAM. THE PROCEDURE WILL UPDATE 
THE NODE STRUCTURE AS WELL AS GIVING CURRENT NUMBER 
NODES IN THE SYSTEM. 

CALLED BY: SECMENT PROCEDURE DUMMY 

ROUTINES CALLED: UNIT DASSA <PRETOT.PRENEE.MEET, 

NODEARRAYTODISK, 

HASTERNODESETUP) 

SEGMENT PROCEDURE DUMMY (GRAPHICS) 

VARIABLES: 

USED: LABELSTRINC (••• UNIT DASSA) 

HOD IPI ED: CM. ANSWER. ICCNT, NNRN, IF ADD, L, IV UNDE E P, 
NNODEB,I,ISTR,IRAY.OLDCELLNUM.NODELABEL, 

(•tt UNIT DASSA) 

CONTROL (stt SECMENT PROCEDURE DUMMY) 

•■•■••••(••ft. •MIIMIIIIIIIIItllMItMItlltimitUtlMM •) 

BEGIN 

PRETOT: 

REPEAT 

BEGIN 

PACE(OUTPUT); 

WRITEtOUTPUT,'SPAN NODES. . .A(LL S(ELECT '); 

REPEAT UNTIL KEYPRESS: 

READ!INPUT,CH) 

END 

UNTIL((CH.’A‘)OR(CH.'S 1 )); 

IF(CH.'S') THEN PRENEE: 

IPdCONTOI) 

THEN 

IECIN 

REPEAT 

IECIN 


?? 













(• SCCnCKT PROCEDURE DUMMY 


PACEtOUTPUTl i 

VRITC<OUTRUT>'DO YOU WANT TO BUILD A NEW TREE* CY/N) 
REPEAT UNTIL KEYPRESS, 

READ!INPUT.CHI 
END 

UNTIL <<CH*‘Y'IORICHb'N’II; 

Ir <CH-'NI 
THEN ANSWER:*'tIIT‘ 

ELSE 

ICG IN 

HASTERNODESETUP; 

ICONT:at 
END 

END, 

KNRM: 

IMITTURTLEj 

REPEAT 
EEC IN 

IP (ICONTOOI 
THEN 
SECIN 


(PAOO.at; <• l.PARCHT, J.BROTHER •> 
l: • I; 

CONTROL;«1; 

VIEWPORT(O/JPP.JI.l’II; 
rILtSCREfMISLACKI; 

\IEWPORT(0,J7P,9,IfI); 

REPEAT 

BEGIN 

GRAPHICS; 

CONTROL:■CONTROL*l; 

Jft(CCKThOLIA>OR(ANSWER." " > OR< ANSWER. " DOVE ’ ) ) 
THEN 
BEGIN 

LVL »LVl*l-I; 


n 




i 


(• SECKEKT PROCEDURE DUHHY •) 

IT(LVDK0EEP) THEN NDEEP.-LVL; 

NEXTs 

NNRN: 

END 

ELSE 

■ECIN 

IF <ANSWER(>'EXIT') 

THEN 

IEC1N 

ANSWER:■COPY(CONCAT(ANSWER,LABELSTRING),1,NAXLAEEL81ZE); 
NNRN:«NNRN+1; 

NNODES:aNNODES+i; 

HOVETO(2,0); 

VSTRINC('CURRENT NUMBER OF NODES: '); 

INNODES; 

STR(1,1STR); 

VSTRINC(ISTR); 

IRAYCLVL,IFADD1:-NNODES; 

SEEK(NODE,tRATCLVC«81)5 
NODEARRAYTODI9K(LVL); 

PUT(NODE); 

OLOCELLNUN: -IRATCLVL ,01; 

LVL:*LVL+L; 
t:-0; 

IFADD:*3; 

IRATCLVL,0}:■NNODES; 

1RAYCLVL,I):-NNRN; 

IRAYCLVL.il:.0; 

IRAYC LVL,3]:>0; 

IRAYC LVL,41:«OLDCELLNUK; 

IRAYC LVL,51:•OLDCELLNUM; 

ARAYCLVL.il:»0; 

ARAYCLVL.il :.0; 

NODELABELCLVL1:-ANSWER; 

SEEKCNODE,IRAYCLVL,01); 

NODEARRAYTODISK(LVL >; 

PUT(NODE); 


?» 


END; 





(* SEGMENT PROCEDURE DUNNE •> 


END 

END 

UNTIL(<CONTROL> i >OR(ANSWER-'DONE•JOR(ANSWER-••>ORCANSWER-'EXIT* » > 
END: 

END 

UNTIL <(ICONT-O)OR(ANSWER-'EXIT'>); 

PACE(OUTPUT)i 
TEXTMODE; 

END; END OF SPAN •) 
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(• SEGMENT PROCEDURE DUMMY •> 


PROCEDURE INITIALIZE: 


PROCEDURE INITIALIZE • 

USE: CREATES NEW FILES ON THE DISK FOR NAMES ENTERED IN * 

RESPONSE TO OPTIONS SEL OR NEW. TVS NEW FILES ARE • 

CREATED: ONE FOR THE NODES, THE OTHER FOR THE NAMES • 

OF THE ALTERNATIVES. IN ADDITION, CALLS OTHER • 

PROCEDURES IN THIS SEGMENT (LABELATTRIBUTES. • 

READTITLE, AND SPAN) TO EXPEDITE CREATION OF THE TREE • 
CALLED BY: SEGMENT PROCEDURE DUMMY (SELECTFILE) • 

ROUTINES CALLED: UNIT DASSA (MASTERNODESETUP) • 

SECHENT PROCEDURE DUMMY (LABELATTRIBUTES, • 

READTITLE,SPAN) • 

VARIABLES: • 

USED: FILEOFSYSTEMS,HAXSYSTEMS.FILENAME (Ml UNIT DASSA) • 

MODIFIED: NODE NODETITLE,CELLNUMBER.NRNDICIT,DOWNLINK, • 

CROSSLINK.BACXLINX.RELVEIGHT.CUMVEICHT. * 

RATIONALE,3YSTEMVALUES (••• UNIT DA88A) * 

SYSTEMS SYSTEMNAME (••• UNIT DASSA) • 

I (Ml UNIT OASSA) > 

IIIMMtlMItttltMtltMtMIIMIIMIMttamtlMIIIItttlttttll • ) 


BEGIN 

WITH SYSTEMSa DO SYSTEMNAME:a'NONE'; 

REWRITE<SYSTEMS,FILEOFSYSTEMS); 

FOR I:.I TO HAXSYSTEMS 00 PUT(SYSTEMS): 

CLOSE(SYSTEMS, LOCK): 

RE8ET(SYSTEMS,FILEOFSYSTEMS); 

WITH NODEa DO 
BEGIN 

NODETITLE:■‘BLANK 
CELLNUMBER:.0; 

NRNDIGIT:aQ, 

DOWNLINK:aO : 

CROSSLINK:aO: 

BACXLINK:aO; 

RELVEIGHT:■00; 

CUMVEIGHT:aC.0; 

FOR I:ai TO HAXSYSTEMS DO SYSTEMVALUESt11:.0.0; 
RATIONALE:a'NO COMMENT' 


It 










(• SEGMENT PROCEDURE DUNNY •> 


ENDS 

REWRITE(NODE,FILENAME>; 

TOR I:■t TO HAINUMBEROFNODEI DO PUT(NODE); 
CLOSE(NODE, LOCK); 

RESETiNODE,FILENAME); 

LABELATTRIBUTES; 

READTITLE; 

NASTERNODESETUP; 

SPAN 


END; (• END INITIALIZE •> 









5 (» SECKENT PROCEDURE DUMMY •) 
PROCEDURE 8ELECTFILE; 

- ! 
i 


BEGIN 

PACE(OUTPUT)i 
IF(NFLAC-l) 

THEN BECIN 

BEEKvNODE,0); 

GET(NODE); 

WITH NODEa DO 
BECIN 

RATIONAIE:■TITLE; 

NODETITLE:■LATT; 

CELLNUMBER:■NNODES; 

NRNDICIT:■NDEEP; 

DOWNLINK:»NSYS; 

CROSSLINK:.FLAG 
END; 

SLEK(NODE,0); 

PUT(NODE); 

CLOSE(NODE, LOCK), 

CLOSE(SYSTEMS, LOCK) 

END; 

I 
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(* iitititiiiittittiiiiitMiimiiiiiiiiittmttiiuiiiitiitii 

PROCEDURE SELECTFILE • 

USE: USED TO ELICIT THE NAMES OF THE DISK AND FILE THAT • 
A TREE STRUCTURE EXISTS ON OR WILL BE CREATED ON. • 

PROCEDURE USED IN SUPPORT OF OPTIONS SEL AND NEW. • 
TWO FILES ARE CREATED AND HAVE THE LABELS Or • 

XXXSYS.DATA • 

XXXNODC.DATA • 

WHERE XXX REPRESENTS THE FIRST THREE CHARACTERS • 

ENTERED BY THE USER WHEN ASKED FOR A FILE NAME. IN • 
THE CASE THAT THE USER ENTERS LESS THAN THREE • 

CHARACTERS, THE ENTRY WILL BE LEFT JUSTIFIED IN THE • 
X FIELD, WITH THE REMAININC X CHARACTERS. • 

CALLED BY: SEGMENT PROCEDURE DUMMY • 

ROUTINES CALLED: UNIT DASSA (NODED1SKTOARRAY) • 

SECHENT PROCEDURE DUMMY (INITIALISE) • 

VARIABLES: t 

USED: (noaa) • 

MODIFIED: NODE NODETITLE,RATIONALE.CELLNUMBER, « 

NRNDICIT,DOWNLINK,CROSSLINK.BACKLINK • 

DISKNAME,ANSWER.FILENAME,L,I.FLAG,NFLAC, * 

LVL.IRAY (••• UNIT DASSA) • 

iiitHxiiiotiitttMttuimtmiiiititiimittuiiitMii i) 


I 








(• SEGMENT PROCEDURE DUMMY •) 


NFLAC:-1; 

WR1TELNIOUTPUT.‘ENTER.. DISK NAME TO EE U84D‘>; 

WRITE(OUTPUT.'<E.C. APPLES:) *>; 

READLNIINPUT.DISKNAHE); 

VR1TELHIOUTPUT,*PLEASE 1NBERT '.DISKNAHE.* ANO DEPRESS RETURN*>} 
READLNIINPUT,ANSWER); 

WRITELN<OUTPUT,‘ENTER...PILE NAME TO BE ACCESSED'); 

READLNIINPUT,FILENAME); 

rILENAME:-CONCATIFILENAME,'EXE*); 

FILEOFSYSTEM8:-CONCATI01SXNAME,COPT IFILENAME,1,3),•STS.DATA‘); 

F1LENAME:-CONCATIDISXNAME,COP?IFILENAME,1,3).*NODE.DATA> >; 

FOR I:-0 TO MAXARRAYSIZE DO FOR L:-l TO MAXSYSTEH3 DO VRAYtI,L]:al 

FOR I:aO TO MAXARRAYSIZE DO FOR L:-0 TO S DO IRAYtI.L]:-0 

FOR I:aO TO MAXARRAYSIZE DO FOR L:al TO Z DO ARAYCI,LI:-0 

WRITELNIOUTPUT,'ICR) OR NEW » *); 

READLNIINPUT.ANSWER); 

IF I ANSWER-‘NEW') 

THEN INITIALIZE 

ELSE 

BEGIN 

RESETINODE,FILENAME); 

RESET!SYSTEMS,FILEOFSYSTEMS); 

SEEKINODE,0); 

GETINODE); 

WITH NODEA DO 
BECIN 

TITLE:-RATIONALE; 

LATT:-NODETITLE; 

MNODES:-CELLNUMBER; 

NDEEP:-NRNDIGIT; 

NSYS:-DOWNLINK; 

FLAG:-CROSSLINK; 

END; 

tVt:-I; 

IRAYt1,0 I:-1; 

SEEKINODE,IRAYtLVL,S3>; 

CETINODE); 

NODEDISKTOARRAYILVL) 

END 


END; I* END SELECTFILE •) 








(• IECMENT PROCEDURE DUItMT •> 



• START SEGMENT PROCEDURE DUMMY • 

• a 


BEGIN 

IP (CMOa'NEV) THEN SELECTFILE 
EtSE IF(CMDa•ATT*) THEN LABELATTRIBUTES 
ELSE IF(CMD*'SEL a 1 THEN SELECTFILE 
ELSE IF(CMDa'SPA 1 ) THEN SPAN 
ELSE IF<CMD«*TTl‘) THEN READTITLE 
END; 







«» I ECU ENT PROCEDURE WLOAP •> 


RECHENT PROCEDURE WLOAD; 


SEGMENT PROCEDURE WLOAD • 

USE: THIS SECMENT CONTAINS ROUTINES VNICH ARE USED • 

TO INPUT WEIGHTS ANO VALUES INTO THE TREE • 

STRUCTURE. IN ADDITION, THIS SEGMENT CONTAINS • 

THE PROCEDURE (CALC) WHICH PERFORMS THE • 

VALUATIONS OF THE INTERNAL NODES OR COLLAPSING • 

THE TREE. • 

CALLED SY: PROGRAM DABS • 

ROUTINES CALLED: SEGMENT PROCEDURE WLOAD (CALC,WLOADI> * 
VARIABLES: • 

USED: (non*) * 

MODIFIED: OPT (••• SEGMENT PROCEDURE WLOADI • 

ItlUlltHUUtUlHIOHIHIIIIKMIHnHHtmitlimi •> 


<• VARIABLES USED UNIQUELY BY THIS SEGMENT •) 

VAR 

OPT,CHI:CHAR; 

LABELI.AKS.STRING; 

SYS; ARRAY 11..SI OF STRINC; 
EXirrLAG.PPOS.J.Xl,X,Y,K,L:INTEGER; 

VRAY1:ARRAY Cl..SI OF REAL} 

' COLOR: ARRAY tl.,51 OF SCREENCOLOR; 







<• SEGMENT PROCEDURE WVLOAD •> 


PROCEDURE RDVi 


PROCEDURE RDV 

USE: THIS PROCEDURE ENABLES THE USER TO INSERT 

ALTERNATIVE VALUES (0-100) FOR EACH DATA NODE IN 
THE TREE STRUCTURE. OPTIONS INCLUDE INPUTTING ALL 
THE DATA NODES OR SELECTED NODES AT THE USER'S 
DISCRETION. THIS PROCEDURE USES THREE SUBORDINATE 
PROCEDURES (DRAWBAR tad SETUP) WHICH ENABLE 
THIS ROUTINE TO BE INTERACTIVE AS WELL AS 
DISPLAYING OUTPUTS USINC THE GRAPHICAL NODE. 

CALLED BY: SECNENT PROCEDURE WVLOAD (WVLOAD1) 

ROUTINES CALLED: SECKENT PROCEDURE WVLOAD (DRAWBAR, 

SETUP) 

UNIT DASSA (NODEARRAYTODISK.NUMTOSTRINC, 
STRTOREAL) 

VARIABLES: 

USED: TENSTRINC,N3Y8,LVL,ISTR (at* UNIT DASSA) 

AN8,COLOR,Y,SYS (fit SEGMENT PROCEDURE 
WVLOAD) 

HODIFIEO: CK.ICONT.VRAY,ANSWER (••• UNIT DASSA) 

EE ITF l AC, PPOS, <), X , VRAY (••• SECNENT 
PROCEDURE WVLOAD) 


■ 



















(• IEGNEMT PROCEDURE VVLOAD •> 


PROCEDURE DRAWBAR(A,I.C:INTEGERJV:REAL )i 


PROCEDURE DRAWBAR 

VSR: UBEB COMPUTER GRAPHICS TO DRAW COLOR BARS 
WHOSE KEICHTS REPRESENTS THE VALUES OP THE 
ALTERNATIVES THE COLORS ARE DEPENDENT ON THE 
ALTERNATIVES: ALTERNATIVE I • 0RANCE 
ALTERNATIVE 2 ■ VIOLET 
ALTERNATIVE 1 • BLUE 
ALTERNATIVE < ■ GREEN 
ALTERNATIVE 3 ■ WHITE! 

THE A.S,C VARIABLES CORRESPONDS TO THE LOVER LRPT 
HAND SIDE OF THE TALL RECTANGLE, WHERE C REPRESENTS 
THE ALTERNA1VE NUMBER. VARIABLE B CORRESPONDS TO 
VALUE OF THE ALTERNATIVE AT THAT NODE. 

CALLED BY: SECMENT PROCEDURE VVLOAD (RDV.SETUP) 
ROUTINES CALLED- (noa»> 

VARIABLES: 

USED: A.B.C.V PROCEDURE DRAWBAR) 

MODIFIED: (n«a«) 


BEGIN 

VIEVPOHTIA*C*13,A+(C*13)«10,8,B«30); 

FILLSCREENCBLACK>; 

VI EVPORT! A*C* I 5,A+(C*15)*10,B,B*TRUNC(V/2)); 
FILL3CREEK<COLORIC*11); 

VIEWPORT!«,27f,0,1*1) 

END: 







(• SECMEKT PROCEDURE WVLOAD •> 


PROCEDURE SQUARES(A.B: INTEGER) j 

(• MHIIIIttUMIItltllKIIIH 


PROCEDURE 80UARES • 

UIE: USED TO DRAV HOLLOWED OUT BOXES WHERE DATA • 

THE CURRENT VALUE OF A PARTICULAR ALTERNATIVE AND • 
THE BOS WHERE NEW VALUES Ot THAT ALTERNATIVE WILL • 
BE ENTERED. THE TECHNIQUE USED IN CONSTRUCTING THE • 
BOX IS TO SET THE VIEWPORT TO THE SIZE OF THE BOS. • 
FILL IT WITH THE DESIRED COLOR CCREEN) AND THEN • 

HOLLOW OUT THE BOX WITH THE BACKGROUND COLOR • 

(BLACK). THE ARGUMENTS A AND B CORRESPONDS TO THE • 

LOWER LEFT HAND CORNER WHERE THE BOX IS TO BE • 

DRAWN. • 

CALLED Bf: SECMENT PROCEDURE WVLOAD (SETUP) • 

BOirrrNES CALLED: (nsa«) • 

VARIALBES: • 

USED: A.B (••• PROCEDURE SQUARES) « 

MODIFIED: (bora) t 

t*»**(i*ti»****«tt«»tt*tttttt(tttt**tt*at*t*tti**ti*t*** «> 


BEGIN 

VIEWPORTS, A*7S.I,B*IJ>; 
FILLSCREEN(GREEN); 

VIEWPORT! A* 1 ,A«73.B*l.B«m; 
FILLSCREEN(BLACK); 


VIEWPORTS. I7f .0, III); 

















A 




(* SICKCNT PROCEDURE WVLOAD •> 


PROCEDURE SETUP; 


PROCEDURE SETUP • 

USE: BETS UP AND DISPLAYS A PATICULAR DATA NODE POR USER ■ 
VALUE INPUT. PROVIDES CURRENT VALVES OP THE • 

ALTERNATIVES. IN BAR FORMAT (USINC PROCEDURE * 

DRAWBAR). ALSO PROVIDES DISPLAY FOR THE FIRST • 

ALTERNATIVE AND ITS VALUE IN DECIMAL FORM. • 

CALLED BY: SEGMENT PROCEDURE WVLOAD (RDV) t 

ROUTINES CALLED: UNIT DASSA (INTTOSTRING) • 

SEGMENT PROCEDURE WVLOAD (SQUARES. • 

DRAWBAR) t 

VARIABLES: • 

USED: MODELABEL.TENSTRINC,LVL,IRAY.NSYS * 

(••• UNIT DASSA) • 

MODIFIED: I.ANSWER,ISTR <■•• UNIT DASSA) • 

VRAY1.PPOS,COLOR (••• SEGMENT PROCEDURE * 
WVLOAD) t 

t•#«««**t>> 


BEGIN 

ft 

COLOR Ill:.ORANGE; COLOR!Z1:-VIOLET; 

COLOR!31:-BLUE; COLOR CD:-GREEN; 

COLOR!31:-VHITEI; 

FOR I:.I TO NSYS DO 
BEGIN 

SEEEC SYSTEMS.I-1); 

CETC SYSTEMS); 

WITH SYSTEM < DO SYS!ll:-SYSTEMNAHE 
END; 

FOR I : -1 TO 3 DO VRAYl!Il:-0; 

MOVETOC0,111); 

WSTRINGC'VALUE: A)SORT.B)ACK E)XIT N)EXT <ESC>'>; 
SQUARES(101,137); 


MOVETOC103.133); 

VSTR1NCCNODELABEL!LVLI); 


TO 









(* SEGMENT PROCEDURE VVLOAD •) 


MOVETOI0,ISP); VRTR1NGI'NRN: •>; 

ANSWER:*'*; 

POR 1:*1 TO LVl DO 
SECtN 

INTTOSTRINOIIRATtI,l)); 

ANSWER:*CONCATIANSWER.1STR,* •> 

END; 

VSTtlNCICOPYICONCATIANSVER.TEHSTRtNC),!,»>>; 


MOVETOIIS,IIS) ; WSTRINCl 'OLD VALUES 1 >; 

NOVETOIIM,143 ); WSTRINC<'NEW VALUES 1 ); 

EOR I:*0 TO NSYS>1 DO 
DRAVRAR(IE.IS.I,VRAYtLVL,!♦11); 

FOR 1:*1 TO NSY8~1 DO 
ORAWRARIIIS.IS,J,VRAY1!)♦»)>; 

NOVETOI79.4S >; VSTRINC('ALTERNATIVE'); 

MOVETOISO,30>; W3TRINGIC0NCATI*OLD ■.COPYICONCATILATT,• •>,!,!)>> 

SQUARE?I111,27); 

MOVETOC3fc , 15 >; WSTRINGICONCATI’NEW '.COPYICONCATILATT,• *>,l,4))) 

SQUARESI 111,12); 

PPOS:*1 


END; <• END SETUP ■) 




I* SEGMENT PROCEDURE VVLOAD »» 


(» MtiltlM 

t 

• EICIM PROCEDURE RDV 

* 


ISC1N 

INITTURTLE, 

EE1TFLAC:«0; 

SETUP; 

REPEAT 

BEGIN 

VIEWPORT!!I2,1 St, «Z,57); fllLSCREEN(COlORtPPOS)); 

VIEVPORT!0,277,0,1 PI>; MOVETO! H7,«S> ; VBTRINC!SYS!FPOB)>; 

MOV ETC 1113,27) ; NUKTOSTRIKC! VRAYCi-VL, PFQS2 >; 

VSTRINC(ISTR); 

MOVETO!!!S,IS); WSTRINC!TEN3TRINC); 


AMS m ’ •; 

RtPPAT UNTIL KEYPRESS, 

READ!INPUT,CH»; 

ANSII):*CH; 

IP!( POB(AH&, *ARNE’)O CiOR< COIN)OR<ORD<CH> *1 7)> 

THEN 

EASE OADtCH) OP 
17: ICONT.-O; 

11.12: BEGIN 

VRATlIPP05!:.VflAYIIVl,PROS); 

DRAWBAR!!II,15,PPOS-J,VRATlIPPOS)); 

IF!PPOS(NSYS) THEN PP0S:»PPO3*t 
END; 

45.17: BEGIN 

IF (CH-’A’J THEN FOR J:»! TO NSYS 00 VR AYU 3 ) : »VR AYUVL , J J 
FOR <!:«! TO NSYS DO VKAYf LVL , J J:-VRATICJI; 
SEEK!NODE,IRAYILVL,0)); 

CET(NODE ); 

SEER<NODE,1RAYtlVL.OJ); 

NODEARRATT0D1SR C LVL > ; 

FUT(NODE>, 
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<« SEGMENT PROCEDURE VVLOAD »> 


EXITFLAC:*! 

END; 

44; 1F(PP0B(*1> THEN PP0B:*l 

ELBE PPOB:■PP05-1; 

It: IF(PPOS>*N8YS > THEN PPOS:*NSYS 

ELBE if FOB:»PPOS*l; 


END (• END CASE •> 


ELBE 

BECIN 

ANSWER:* 1 •; 

ANSWERtlJ:*CH; 

X:*1IS; Y;»14; XJ:*E; 
NOVETO(X.Y); 

WCHAR(CH); 

X:*X»7; 


REPEAT 
BECIN 
ANS:a * *; 

REPEAT 

UNTIL KEYPRESS; 

READ(1NPUT,CH>; 

ANSI1]:*CH; 

J:*ORD(CH); 

IF(NOT EOLN) 

THEN 
BECIN 
IF( JOB) 

THEN 

BECIN 

IF(CH*‘ •) THEN CH:*’ 

VCHAR < CH); 

ANSWER:.C0NC»r'ANSWER,ANS>; 
X: »X*7 
END 
ELSE 
IF(XI(X> 

THEN 

BECIN 

HOVETO(X-7,Y), 

VCHAR(’ ’>; 








(• SECKENT PROCEDURE VVLOAD •> 


MOVETOt1-7,T); 

ANSWER:■COPY<ANSWER,1,(LENCTH< ANSWER)-1)>; 
I:»I-7 
END; 

END; 


UNTIL C<EOLN)OR<LENCTH<ANSWER>>-10)); 
VRAYltFFOS):«STRTOREAL(ANSWER); 

IF < VRAY tCPFOSDlOO) THEN VRAY1 tPPOSl : ■ 1 00 ; 
IP <VRAY11PPOS1<0) THEN VRAY1IPPOSJ:-0; 
DRAWBAR!II3.i5,PP0S-1,VRAYltPPOSl); 

IF(PPOS<NSYS> THEN PPOS:-PP08*1 
END 

END 

UNTIL <(ORD< CH)>27 >OR(ElITFLACal)); 

IF(ORD<CH)-27) THEN ITOTL:«0; 

FACE(OUTPUT); 

TEETNODE; 

END; 









>> 






(• SEGMENT PROCEDURE WVLuAD •> 

PROCEDURE RDVT; 


PROCEDURE RDVT • 

USE: THIS PROCEDURE ENABLES THE USER TO INSERT • 

WEIGHTS TOR ALL SPANS ON THE NODE IN • 

THE TREE STRUCTURE. OPTIONS INCLUDE INPUTTING ALL • 
SPANS OR A SINGLE SPAN UNDERNEATH A SPECIFIED « 

NODE. • 

CALLED BY: SEGMENT PROCEDURE WLOAD CWLOAD1) • 

ROUTINES CALLED: SEGMENT PROCEDURE WLOAD (DRAWBAR, • 

SETUP) • 

UNIT DASSA <NODEAARATTODISK,CROSS, » 

STRTOREAL,ANSVERTOQUESTION) • 
VARIABLES: • 

USED: MAXCOMNENTSIZE.NODELABELtt#* UNIT DASSA) * 

MODIFIED: QUESTION,LVL,ARAY,I,ANSWER.NODE:RATIONALE, * 
1TOTL (••• UNIT DASSA) • 

LR.INT.J (••• PROCEDURE RDVT) • 

VAR 

4,INT : INTEGER; 

LR : REAL; 

BEGIN 

CROSS; 

REPEAT 

BECIN 

PAGE(OUTPUT); 

VRITELNtOUTPUT,* OLD VTS NEW VTS NORMALIZED'); 

FOR I:al TO NCROSS DO 
BEGIN 
J:«LVL*I; 

GOTOZY(0,1+1); 

WRITE(OUTPUT,NODELABELtJI>; 

COTOXY(14,1*1); 

INT:»TRUNC(100*ARAY(4,II); 

VRITELN<OUTPUT,INT:I) 

END; 
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LR:aO . 0 ; 







(• SEGMENT PROCEDURE WVLOAD ■> 

TOR 1:nt TO NCROSS DO 
BEGIN 

COTOE Y (2 2,1 ♦ 1) ; 

J:-LVL*I; 

READEN!INPUT,ANSWER); 

ARAYC J. 11: -STRTOREAU ANSWER); 

IF(ARAYt J,1]<0 > 

THEN 

BEC1N 

ITOTL:»0; 

I:-NCROSS*100 
END 

ItSE 

LR:-LR+ARAYtJ,1]; 

END; 

IF (11 (NCROSS+3)OR(LR( >0)) 

THEN 

BEGIN 

FOR 1 :«1 TO -/.ROSS DO 
BECIN 

GOTOXY122.1*!); 

J:.LVL*I; 

ARATCJ,13:-ARAYtJ,1J/LR; 

INT:-TRUNC(100*ARAYtJ,13); 

VRITEIOUTFUTfINT:*) 

END; 

COTOET(0,1*2); 

QUESTION:-'ARE THESE WEIGHTS OKAY? (Y/N) 

ANSWERTQQUESTION 


UNTIL<( ANSWER-'Y'>OR< I> NCROSS ♦5 >OR(IR-O)) ; 

IF(< UNCROSSES)OR<LR< > 0 ) > 

THEN 

BEGIN 

WRITELN(OUTPUT,'ENTER RATIONALE TOR WEIGHTS'); 

WRITE IN(OUTPUT,■(MAE •.MAXCOMWENTSI2E:J,' LETTERS)'); 

READLNfINPUT,ANSWER); 

WITH NODEa DO RATIONALE:-COPY!CONCAT(ANSWER,COMHENTSTRINC ) ,I, 
MAECOMMENTS IZE); 









<* SEGMENT PROCEDURE WLOAD •) 


Jr-LVL; 

FOR I:at TO KCROSS DO 
IECIN 

lVl:alVL«l; 

ARAYCLVL,21:aARAYCLVL ■11; 
SEEK(NODE.IRAYCLVL.Ol); 
NODEARRAYTODISKILVL>; 
PVT(NODE) 

INS; 


IVL.mJ 

END 


ID; (• END PROCEDURE RDVT •) 









(• SEGMENT PROCETURE WLOAD •> 


PROCEDURE CALC; (• CALCULATE! THE TREE *> 


PROCEDURE CALC 

USE: THIS PROCEDURE CALCULATES OR 'COLLAPSES' THE TREE < 
BASED ON THE WEIGHTS AND VALUES SPECIFIED FOR EACH i 
PARTICULAR NODE OR SPAN. THE PROCEDURE CALCULATES ' 
THE CUMULATIVE WEIGHTS FROM THE TOP OF THE TREE 
DOWN. IF THE PROCEDURE REACHES THE DATA NODE VALUES 
ARE ADDED TO THE TOTAL VALUE OF THE TREE. 

CALLED BT: SEGMENT PROCEDURE WVLOAD 

ROUTINES CALLED: UNIT DASSA <PRETOT,NODEARRAYTODISK,NEXT I 
VARIABLES: 

USED: IRAY.NSY8.1CONT (••• UNIT DASSA) 

MODIFIED: ARAY.NDEEP,FLAG,VRAY,I,L,LVL 

(••• UNIT DASSA) 

J (••• SEGMENT PROCEDURE WVLOAD) 

Z.OUITFLAC (ill PROCEDURE RDWT) 

VAR 

X:REAL; 

QUITFLAC:INTEGER; 

BEGIN 

FLAG:«0; 

ARAYIO.11:■!; 

ARAYI0,2):■!; 

AHAYt t.l ):■.!; 

ARAYIt,2):■!; 

PRETOT; 

J: ; 

PACE(OUTPUT); WRlTE(OUTPUT,'CALCULATING TREE.'); 

NDEEP:-0; 

REPEAT 

BEGIN 

IF <ICONT < >0) 

THEN 

BEGIN 

ARAYILVL,2): .ARAYILVL-1, 2)»ARAYILVL,1); 

J:1; 

IF(LVDNSEEP) THEN NDEEP:.LVL; 

IF(IRAYILVL,21)0) 

THEN 

BEGIN 

FOR I:■! TO NSYB DO VRAYtLVL,\1:.0 ; 


FI 














(• SEGKENT PROCEDURE WLOAD •) 


NEXT 

END 

ELSE 

IECIN 

rOR K:al TO NSYS DO 
BEGIN 

Z:-VRAYt LVL,KI•ARATttVL.1) ; 

FOR L: ■! TO (LVL-U DO VRAYEL.K3.-VRAYCL.K3-Z 
END: 

IEEE(NODE,I RAY(LVL,01); 

NODEARRAYTODISK< LVL> j 
PUT(NODE); 

L.bLVL; 

OUITFLAG: -1 ; 

REPEAT 

IF(IRATELVL,SI>0) 

THEN 
BEGIN 
LVL:-Li 
NEXT: 

OUITFLAG:-t 
END 
ELSE 
BEGIN 

LVL:-LVL-li 

IF(ARATtLVL,II<>C) THEN FOR I:-I TO NSYS DO 
VRAYILVL,11:-VRAYlLVL,13/ARAY t LVL.Z 3 s 
SEEK(NODE,I RAY(LVL,0 3); 

NODEARRAYTODISK(LVL>; 

FUT(NODE); 

IF(LVL(>t) 

THEN 

BEGIN 

LVL:-L; 

NEXT; 

QUITFLAC:-0 
END 
END 

UNTIL(QUITFLAG-O) 

END 

END; 

WRITE(OUTPUT,•.•) 

END 

UNTIL(ICONT-O > 

(• END PROCEDURE CALC *) 


II 


END; 








(• SEGMENT PROCEDURE WLOAD •> 


i 


PROCEDURE WLOAD 1; 


PROCEDURE WLOAD! • 

USE: THIS PROCEDURE IS EXECUTED IF LOADINC THE VEICHTS * 
OR VALUES TOR SPANS OR NODES ARE REQUIRED. • 

IP ALL NODES ARE TO BE ASSICNED VEICHTS OR VALUES • 
THE PROCEDURE STARTS FROM THE TOP OF THE TREE AND » 
USING PROCEDURE NEXT (UNIT DASSA) FINDS ALL THE * 

DATA NODES (FOR VALUES) OR NON-DATA NODES (FOR • 

VEICHTS). • 

IP A SELECTED NODE IS DESIRED, PROCEDURE PRENEI • 
(UNIT DASSA) IS EXERCISED. • 

CALLED BY: SEGMENT PROCEDURE WLOAD • 

ROUTINES CALLED: UNIT DASSA (FRETOT,PRENEX,NEXT) • 

SEGMENT PROCEDURE WLOAD (RDV.RDVT) • 

VARIABLES: • 

USED: ICONT,IRAF,ITOTL (••• UNIT DASSA) ■ 

OPT (at* SEGMENT PROCEDURE WLOAD) • 

MODIFIED: CH (••• UNIT DASSA) * 

CHI.LABEL! (••• SEGMENT PROCEDURE WLOAD) * 

■ iHittitiitittHHuiHtiiititmimiiitmiiiiiitiaiH *) 

BEGIN 

REPEAT 

BEGIN 

IF(OPTa'V') THEN LABEL!:■'VEICHTS' 

ELSE LABEL!^'VALUES'; 

PACE(OUTPUT); 

VRITE(OUTPUT,LABEL1,': A(Ll S(ELECT '); 

REPEAT 

UNTIL KEYPRESS', 

READ(INPUT,CHI) 

END 

UNTIL((CHI■’8•>OR(CHla 1 A')); 

VRITEIN(OUTPUT); 

REPEAT 

BEGIN 

PRETOT; 

IF(CH1 •' 8') THEN PRENEX; 

IF(ICONTaO) 

THEN 

BEGIN 

VRITELN(OUTPUT,'NRN ENTERED IS INVALID'); 
VRITELN(OUTPUT,'(ANY KEY) CONTINUE'); 
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(• SEGMENT PROCEDURE WIOAD *> 


REPEAT UNTIL KEYPRESS; 

READ!INPUT.CM> 

END 

END 

UNTUIICONTOO); 

REPEAT 

RECIN 

IF((IRAYILVt,I]a0)AND(OPT* 1 V')> THEN RDV; 
IP((IRAYILVL,I)>0)AND< OPT*'V')) THEN RDVT; 
IP(ITOTL»l> THEN NEXT 
END 

WNTI t(• ICONT*0)CR<ITOTL<>1>) 

END; <• END WLOADI »J 
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(• SEGMENT PROCEDURE VVLOAD •> 


* 


IECIN SEGMENT PROCEDURE VVLOAD 


acciN 

REPEAT 

IECIN 

REPEAT 

IECIN 

PACE(OVTPUTJ; 

WRITE (OUTPUT, *WC: V(E!CHT V(ALUES C( ALCULATE £<XIT '); 

REPEAT 

UNTIL KEYPRESS; 

READ(INPUT,OPT); 

END 

UNTIL! (OPT* 'V' )OR(OPT- a V)OR(OPT-*C' >OR(OPTa • E 1 > >; 

IKOPT-'C’) THEN CALC 
ELSE IT(OPT() * K') THEN WL0AD1 

ENO 

UNTIL(OPTa'E‘> 















(• SEGMENT PROCEDURE NUN *> 


SEGMENT PROCEDURE NUN; 
(• **•••*•••■«••••••*# 


SEGMENT PROCEDURE NUM 

USE; THIS SEGMENT HOUSES THE PROCEDURES WHICH ARE 
CALLED ON FOR OPTIONS DIS, NUM, AND REV. 
PROCEDURES FOR OPTION DIS PROVIDES FOR BOTH 
TABULAR AND GRAPHICAL OUTPUT. IN ADDITION, 

THE TABULAR OUTPUT CAN BE DIRECTED TO EITHER THE 
CONSOLE OR THE LINE PRINTER. PROCEDURES FOR 
OPTIONS NUM ANO REV ARE COMBINED TOCETHER BECAUSE 
OF THEIR SIMILAR FORMATS (OPTION REV IS JUST A 
SHORTENED VERSION OP OPTION NUM) AND CAN RE 
DIRECTED TO EITHER THE CONSOLE OR THE PRINTER. 

CALLED RT; PROGRAM DASS 

ROUTINES CALLED: SEGMENT PROCEDURE NUM (OUTDEVICE, 

NUMERtCREVIEV,DISPLAY) 

UNIT DASSA (NODIN.PRETOT,PRENEZ) 

VARIABLES; 

USED: CMD,IRAY,ICONT,FLAC <«•• UNIT DASSA) 
MODIFIED: CH,ANSWER (••• UNIT DASSA) 

CHI (••• SEGMENT PROCEDURE NUM) 


■ 


VAR 

CK1:CHAR; 

OUT:STRING; 

J:INTEGER; 

P:FILE OF CHAR; 












{• SEGMENT PROCEDURE HUM •) 


PROCEDURE 0UTDEV1CE; 


• PROCEDURE OUTDEVICE • 

• USE: THIS PROCEDURE IS CALLED ON BY OTHER PROCEDURES IN • 

• THIS SEGMENT IN ORDER TO DETERMINE WHICH DEVICE THE * 

• TABULAR OUTPUT IS TO GO ON (CONSOLE OR PRINTER) • 

• CALICO BY: SEGMENT PROCEDURE NUM (OISPLAYO) * 

• ROUTINES CALLED: (non*) t 

• VARIABLES: * 

• USED: F (••• BECMENT PROCEDURE NUN) • 

• MODIFIED: CH («•• UNIT DASSA) _ * 

****•••••««•••••••*•*•**•*••*•••••*•«*<•••••*«•*•*•• •> 

BEGIN 

REPEAT 

BEGIN 

PAGE(OUTPUT): 

WRITE(OUTPUT, 1 C(ONSOLE P(RINTER •>: 

REPEAT 

UNTIL KEYPRESS: 

READ(INPUT,CH) 

END 

UNTIL!(CH»'C'>OR(CH-'P')); 
tF(CH.'P') 

THEN REWRITE!F,'PRINTER:*) 

ELSE REWRITE(F,'CONSOLE:'): 

ENO: (• END OUTDEVICE *) 
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(• SECMENT PROCEDURE HUM •> 


PROCEDURE NUMERICALVIEW; 
(• ■•iiiimttttiHiini 


PROCEDURE NUMERICREVIEW 

USE: HEIN PROCEDURE THAT SUPPORT OPTIONS REV AND NUM. 

PROVIDES OUTPUT OATA. NRN AND NODE LABELS IN THE CASE OF 
OPTION REV AND NRN, NODE LABELS, CUMULATIVE WEIGHTS, 
RELATIVE WEIGHTS AND ALL ALTERNATIVE VALUES IN THE CASE 
Or OPTION NUN. REVIEWS TO THE PRINTER ASSUHE AN 80 
COLUMN FORMAT WHEREAS REVIEWS TO THE CONSOLE ASSUME AN 
ID COLUMN FORMAT WHERE ONLY THE RIGHT OR LEFT HALF IS 
DISPLAYED AT ANY CIVEN TIME. 

THIS PROCEDURE USES ONE SUBORDINATE PROCEDURE WHICH IS 
USED TO PAGE THE OUTPUT TO A NEW PACE (OR CLEAR THE 
SCREEN IN THE CASE OF THE CONSOLE) AND PRINT NEW HEADINC 
INFORMATION. 

CALLED BY: SEGMENT PROCEDURE NUN 

ROUTINES CALLED: UNIT DASSA UNTTOSTRINC,NEXT) 

SECMENT PROCEDURE NUM (NEWPC) 

VARIABLES: 

USED: NSYS.CHD.LVl.lRAY.lSTR.NODELABEL.COMMENTSTRING 
ARAY.ICONT.VRAY,TITLE (••• UNIT DASSA) 
HOD1PIED: ANSWER, I (mi UNIT DASSA) 

F.CHI.J (hi SECMENT PROCEDURE NUM) 


n 


IBS 












(• SECKENT PROCEDURE HUT1 «) 


PROCEDURE NSVPC; 


PROCEDURE NEVPC * 

USE: CONSTRUCTS THE HEADER FOR A NEV PACE OF OUTPUT WHETHER • 

THE OUTPUT OCCURS ON THE CONSOLE OR THE LINE PRINTER. • 
HEADER CONSISTS OF LABELS AND A LIST OF THE • 

ALTERNATIVES (SYSTEMS). • 

CALLED BY: SECKENT PROCEDURE NUK (NUKERICREVIEU) • 

ROUTINES CALLED (non*) • 

VARIABLES: » 

USED: T,'TLE,CH.NSYS,SYSTEM:SYSTEMMAKE (••• UNIT DASSA) * 
MODIFIED: ANSWER. I <ff>* UNIT DASSA) • 

F (••• SEGMENT PROCEDURE NUM) * 

■ 

immiiHittHtiiKiiiuitiiitiiitmtiiiHiHimmiiiix ■> 

BEGIN 

PACE(F) ; 

IF(CH-*F' ) 

THEN VRITELNIF, • REVIEW); 

VRITELN<r.TITLE); 

WRITE<F,'NODE RET NUMBER' LABEL REL WT CUM WT '); 

IF(CHa'P * > 

THEN WRITE<F,• •) 

ELSE WRITE(F,• LABEL ' ); 

SEEKISYSTEMS,0 >; 

ANSWER:-••; 

FOR l:.l TO NSYS DO 
BEGIN 

CET(SYSTEMS); 

WITH SYSTEMSa DO ANSWER:■ CONCAT< ANSWER,COPY!SY5TEMNAME,1,3),' ' 
END; 

WRITELN(F,ANSWER); 

WRITELNCF,' •) 

END; <• END NEWPC •> 











(• SECHEMT PROCEDURE KUH * ) 



• BEGIN PROCEDURE NUMER1CREVIEV 



■ECtN 

CHII •; 


REPEAT 


J: *2; 

IFCCHDb'REV') 

THEN 
BEGIN 
PACEIF); 

VRITELNIF.TITLE) 
END 
ELSE 
■ECIN 
NEVPC, 

■1: ■ J+1 
END; 


WHILE (tICONT.I)AND((<J<Z3>AND<CH.'C’))OR((J<57>AND<CH»•P•>))) DO 
BEGIN 

ANSWER:■''; 

FOR I;■! TO LVL DO 
BEGIN 

INTTOSTRINC(IRAY11,11); 

ANSWER:«CONCAT<ANSWER.ISTR,' ’) 

END; 

ANSWER:■COPY,CONCAT<ANSWER,NODELABELILVLI,COHMENTSTRIHG),1,14); 
WRITE(F,ANSWER); 

IF tCND«•NUN 1 > 

THEN 

BECIN 

VRITE < F,ARAYC LVL,1):7;2,ARAY C LVL,11:7:I); 

IF(CH«'P' ) 

THEN WRITE < F,■ ’ ) 

ELSE WRITE(F,NODELABELILVLI); 

FOR I:-I TO (NSYS-l) DO 
WRITE(F,VRAYCLVl,11:4:2); 

WRITELN(F,VRAYCLVl,NSYS):i:2>; 


V?Vr-- *r*»***<. 


- J. 
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(• SEGMENT PROCEDURE HUM *> 


END 

ELSE 

VRITELN(F); 


NEXT 


END; 

IP(((J)al3)AND(CHa'C‘)>0R((J>.57>AND(CHa•P 1 >>> 

THEN 

BEGIN 

WRITE(OUTPUT.•<ANY KEY> CONTINUE <ESC> EXIT'); 

REPEAT 

UNTIL KEYPRESS; 

READ(INPUT,CHI); 

PACE(OUTPUT) 

END; 

UNTIL((ORO(CHI >.27 >OR(I CONTbO)>; 

IP(ORD(CHI>*27) THEN CH:«CH1; 


(• END NUHERICREV1EW •> 









<• SEGMENT PROCEDURE NUN *> 


PROCEDURE DISPLAY; 


PROCEDURE DISPLAY 

USE: PROCEDURE SUPPORT OPTION DIS. PROVIDES TABULAR OR 

GRAPHICAL DISPLAY UP A NODE AND ITS IMMEDIATE DESCEND- 
ENTS. INCLUDED IN THE DISPLAY ARE RELATIVE WEIGHTS, 
CUMULATIVE WEIGHTS. AND VALUES OF THE ALTERNATIVES FOR 
THE PARENT AND CHILDREN. 

USES TWO IMMEDIATE SUBORDINATE PROCEDURES (DISPLATO AND 
DISPLAY!> TO PERFORM THE TABULAR AND GRAPHICAL DISPLAY. 
CALLED BY: SECHENT PROCEDURE HUM 
ROUTINES CALLED: UNIT DASSA (CROSS) 

SECHENT PROCEDURE NUM (DISPLAYO.DISPLAYZ) 

VARIABLES: 

USED: ICONT <«•• UNIT DASSA) 

MODIFIED: CH (■•• UNIT DASSA) 


VAR 

I,J,K,L: INTEGER; 
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(• SEGMENT PROCEDURE NUH •> 


PROCEDURE DI8PLAY1; (* DISPLAY •) 

(• imtlltllltlMtlUIMMMtltt 


PROCEDURE DISPLAY! 

USE: DISPLAYS, IN TABULAR FORMAT, THE INPUTTED NODE AND ALL 

IMMEDIATE CHILDREN OF THE TREE STRUCTURE. DATA PROVIDED 
ARE THE LABELS OF THE NODES, EACH NODE'S CUMULATIVE 
VE1CHT, RELATIVE WEIGHT, AND VALUES OF EACH ALTERNATIVE. 
A TOTAL IS PRINTED AT THE BOTTOM OF EACH COLUMN 
REPRESENTING THE PARENT NODE INPUTTED BY THE USER. 

CALLED BY: SEGMENT PROCEDURE NUM (DISPLAYS) 

ROUTINES CALLED: UNIT OASSA <INTTOSTRING,NUMTOSTRINC) 
VARIABLES: 

USED: I8TR,NSYB,LVL,I RAY.NODELABEL,SYSTEM:SYSTEHNAHE, 

NCROSS.ARAY.VRAY,LABELSTRING (••• UNIT DASSA) 
MODIFIED: ANSWER («a« UNIT DASSA) 

P (••• SEGMENT PROCEDURE NUM) 

I.J.X.L (■•• PROCEDURE DISPLAY!) 


VAR 

I.J.K.L : INTEGER; 

BEGIN 

PACE(F); 

ANSWER:-••; 

FOR I:■! TO LVL DO 
BEGIN 

INTTOSTRINGCIRAYC1,1]); 

ANSWER:*CONCAT(ANSWER.ISTR,' ') 

END; 

VRITELN(F.ANSWER); 

WRITELNfF,NODELABELCLVL),'-'); 

ANSWER:•' FACTOR '; 

FOR I:-l TO NSYS DO 
BEGIN 

SEEK(SYSTEMS,1-1); 

CET(SYSTEMS>; 

WITH SYSTEMSa DO ANSWER:-CONCATCANSWER,• ',COPY(SYSTEMNAME,I.5)> 
END; 

WRITELNCF,ANSWER); 

FOR ITO NCROSS DO 
SECIN 
J:«LVL*I; 

ANSWER:.COPY(CONCAT<NODELABELCJJ.LABELSTRINC),1.8); 

IF(1 RAYtJ,2)aQ > 


















(• SECHENT PROCEDURE HUM •> 


THEN ANSWER:-CONCATIANSWER.* * •1 
ELSE ANSWER:-CONCAT<ANSWER,• •>; 

POR K:.l TO NSYB DO 
■ECIN 

NUNTOSTRINC(VRATtJ,X]); 

ANSWER:-CONCAT<ANSWER,ISTR> 

END; 

WRITELK<F,ANSWER) 

END; 

ANSWER:- 1 TOTAL •; 

FOR I:-I TO NSYS DO 
SECIN 

KVHTOSTRINC(VRAYt LVL, 13 ); 

ANSWER:-CONCATIANSWER.ISTR) 

END; 

WRITELNIF.ANSWER); 

VR1TELNCF,' * >; 

WRITELNIF,* FACTOR <WT> CUMWT*); 

FOR I:»1 TO NCROSS DO 
■ECIN 
J.--LVL«I; 

ANSWER:-COPY(CONCATINODELABELIJI,LABELSTRINC),1,8); 
IF<IRAYtJ,21-0) 

THEN ANSWER.»CONCAT<ANSWER,** *> 

ELSE ANSWER:-CONCAT<ANSWER,* 

NUNTOSTRINC(ARAYCJ,11); 

ANSWER:-CONCATIANSWER,’(*,COPY(ISTR,4,3),*)'); 
NUNTOSTRINC< ARAYC J,21); 

WR1TELNIF.ANSWER,ISTR) 

END; 

NUNTOSTRINC < ARAY t LVL,2 3); 

WRITELN(F,* TOTAL *,I8TR) 

END; (• END DISPLAYl •) 
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<■ SEGMENT PROCEDURE NUM *> 


PROCEDURE DISPLAY!; 


PROCEDURE DISPLAY! • » 

USE: DRAWS THE GRAPHICAL REPRESENTATION Or OPTION DIS BY * 
DRAWING A WIRING DIAGRAM WITH THE PARENT NODE * 

INPUTTED BY THE USER AT THE TOP AND ITS CHILDREN • 

BELOW. BELOW EACH CHILD (TO THE RIGHT OF THE ■ 

PARENT) IS A BAR-CRAPH REPRESENTATION OF THE VALUE * . 

OP EACH ALTERNATIVE (INPUTTED OR COMPUTED). t 

JUST ABOVE EACH CHILD (BELOW FOR THE PARENT) THE • 

CUMULATIVE WEIGHT AND RELATIVE WEIGHT (THE RELATIVE • 
WEICHT IS IN PARENTHESES) ARE OUTPUTTED. • 

THE UPPER LEFT HAND CORNER OF THE GRAPHICS OUTPUT * 

IS A LECENO INDICATING WHICH COLOR (ORANGE.VIOLET, • 

BLUE, CREEN, AND WHITE!> REPRESENTS WHICH ALTERNATIVE • 
PROCEDURE HAS THREE SUBORDINATE PROCEDURES (VTS, * 

DRAWBLK, AND SYSBLK) WHICH AID IN DRAWING THE WIRING • 
DIACRAHS. • 

■ 

HAS SPECIAL FLAG, FLACI WHICH DETERMINES THE STYLE • 

OF VARIOUS GRAPHICAL OUTPUTS * 

FLAG1 - I DISPLAY CHILDREN DATA STYLE • 

flag: - : display parent data style ■ 

FLAG! > 1 DISPLAY LECEND DATA STYLE * 

• 

CALLED BY: SEGMENT PROCEDURE NUM (DISPLAY) • 

ROUTINES CALLED: SEGMENT PROCEDURES NUM (WTS,DRAWBLK, • 

SYSBLX) • 

VARIABLES: * 

USED: NODELABEL,TENSTR1NG,NCR0SS,1 RAY, • 

LVl ((•• UNIT DASSA) * 

MODIFIED: ANSWER,CH (»t» UNIT DASSA) • 

J.I.Y,FLACZ,CONTROL <*•• PROCEDURE DISPLAY:) « 


VAR 

I,Y:INTEGER; 

FLAG:,J.CONTROL:INTEGER; 


it: 










I* SECMENT PROCEDURE KVH «) 


PROCEDURE UTS; 

(• litlttltttt 


PROCEDURE V 

USE: WRITES OUT THE CUMULATIVE WEIGHT AND RELATIVE VEICHT 
(THE RELATIVE VEICHT IN PARENTHESES) FOR ANY CIVEN 
NODE. REQUIRES AN I AND V VALUE BE SET WHICH 
REPRESENTS THE LOVER LEFT SCREEN COORDINATE WHERE THE 
WRITING IS TO TAKE PLACE. 

CALLED BY: SECMENT PROCEDURE NUN (DISPLAY!) 

ROUTINES CALLED: UNIT DASSA (NUMTOSTRINC) 

VARIABLES: 

USED: ARAY UNIT DASSA) 

E.Y (Ml PROCEDURE DISPLAY!) 

MODIFIED: 1STR (••• UNIT DASSA) 


BEGIN 

NUMTOSTRINC(ARAYtJ,11); 
ISTR:aCOPY(1STR,3,4); 
KOVETO(X-3,Y»14); 

ISTR:«CONCAT<• (• ,ISTR, •> 1 >; 
WSTRINC(ISTR); 

NUMTOSTRINC(ARAY (J,11); 
ISTR: aCOPY! ISTR, 3.4); 
HOVETO(I ♦ 4 4 , Y + M ) ; 

VSTRINC(ISTR) 

END; (* END UTS •) 


II! 










(• SEGMENT PfOCEDURE MUM *) 


PROCEDURE DRAWBLKU.Y:INTEGER); 


t PROCEDURE DRAWBLK • 

• USE: SUBORDINATE PROCEDURE TO DISPUTE. DRAWS THE BLOCKS IN • 

• THE WIRING DIACRAM WHERE THE LABELS OF THE NODES ARE • 

• PLACED. SIMILAR IN FUNCTION TO PROCEDURE DRAWBLK IN • 

• SEGMENT PROCEDURE DUMMY. • 

• USES TWO ARGUMENTS WHICH ARE THE SCREEN COORDINATES OF • 

• THE LOWER LEFT HANO CORNER OF THE BLOCKS « 

• CALLED BY: SECMENT PROCEDURE NUM (DISPLAYS) • 

• ROUTINES CALLED: (non*) • 

• VARIABLES: t 

• USED: X,Y (••• PROCEDURE DRAWBLK) • 

• MODIFIED: (non*) • 

BEGIN 

VIEWPORT!X,X+73,Y.Y»I1>; 

PILLSCREENCGREEN); 

VIEVPORT( X* 1,E«73.Y*1.Y«I2); 

FILLSCREENIBLACK); 

VIEWPORTS). 27*,0.191) 









(• SEGMENT PROCEDURE NUN •> 


PROCEDURE SYSBLKC X,t:INTEGER); 

it ttttttttttttttttttttttttttt 


PROCEDURE SYSBLK 

UBE: DRAVB, IN BAR CRAPH FORMAT, THE VAtUES OF THE 
ALTERNATIVES FOR A SPECIFIED CHILD NODE OF THE 
INPUTTED NODE (SPECIFIED BY VARIABLE J). 

THE INPUT ARCUHENTS ARE THE LOCATION THE LOVER LEFT 
HAND CORNER WHERE THE FIRST BAR IS TO BE DRAWN. THE 
PROCEDURE THEN DRAWS THE REMAININC BARS (UP TO FOUR) 
RELATIVE TO THAT COORDINATE. 

IN ADDITION. THE PROCEDURE WRITES THE LEGEND WHICH 
CONSISTS OP COLOR BARS AND THE FIRST FOUR LETTERS OF 
EACH ALTERNATIVE IN THE UPPER RICHT CORNER OF THE 
MONITOR SCREEN. 

CALLED BY: SECMENT PROCEDURE NUN (DISPLAY!) 

ROUTINES CALLED: (non*) 

VARIABLES: 

USED: SYSTEMS:8YSTEKNAKE,NSYS,VRAY,LVL 
<••• UNIT DASSA) 

X.Y.FLAG2 (■•• PROCEDURE DISPLAY2) 

MODIFIED: ANSWER (••• UNIT DASSA) 

J (••• PROCEDURE DISPLAY2) 

CONTROL 1,Y1 (••• PROCEDURE SYSBLK) 


VAR 

CONTROL1,YI:INTEGER; 


BEGIN 

FOR CONTROL 1:.I TO NSYS DO 
BEGIN 

CASE FLACl OF 

I: Y1:. TRUNC (VRAY U,CONTROL I)*0. 45); 

X; Y1:-TRUNC(VRAYtLVL,CONTROL1I»0.45); 
3: YI:-45 

END; (• CASE OF FLAG2 •) 


CASE CONTROL 1 OF 

I: BEGIN VIEVPORT(I,2»10,Y-4S,Y-43*Y1); FILLSCRECN(ORANCE) END; 

3: BECIN VIEWPORT<X*15,X*25,Y-45,Y-45*Y1); FILLSCREEN(VIOLET) END 
3: BEGIN VIEWPORT(X*30,X*40,Y-45,Y-45*YI); FILL5CREEN(SLUE) END; 
4 : BECIN VICVPORT(X*43,*453,Y-45.Y-4S»YI); FILLSCREEN(GREEN) END; 
3: BEGIN VIEVPORT< X*40,1*70,Y-45,Y-45+Y1); FILLSCREENtWHITEI» END 


l IS 









(« SEGMENT PROCEDURE MUM • 

END; (• END CASE *) 

VIEWPORTS,279,0,171); 

ir (FLAC2-3) 

THEN 

BEGIN 

SEEE< SYSTEMS,CONTROL1-1); 

CET(SYSTEMS); 

WITH SYSTEMS* DO ISTR:-SYSTEMNAME; 

EON J:>1 TO 4 DO 
BEGIN 

ANSWER:■COPY(ISTR,J,1>; 

HOVETO(7*<15* <CONTROL!-1)),171-(10*J)>; 

VSTRINC(ANSWER) 


























(• SECHENT PROCEDURE NUN *> 




• BEGIN PROCEDURE DISPLAY! * 



■BCIN 

INITTUmt; 

FLAG!:■!; 

NOVITO(13,153); VSTRINCt'<REL WT»•); 
NOVETO(142,153); WSTRINGCCUM VT'); 


X:alOS; Y:aI71; DRAWBLK(X,Y>; 

ANSWER:aCOPYt COHCAT<NODELABELt LVL1.TEN3TR1NC>.1,10); 
NOVITO(107,180); VSTRING(ANSWER); 


FOR CONTROL:al TO NCROSS DO 
BEGIN 

J:atVl»CONTROL; 

ANSWER:aCOPY(CONCAT<NOOELABEL(J3,TENSTRINC),1.1); 
IFdRAYCJ, 2 Ia0) 

THEN ANSWER:.C0NCAT<ANSWER,•••>; 

CASE CONTROL OF 


1 : 

BECIN 

X:aJ; Y:all): DRAWBLK(X.Y); 

KOVETO(7,113); WSTR1NC<ANSWER;; 

VTS; 

NOVETOU3?, 17S); PENCOLOR<GREEN) ; 

KOVETOI137,141): NOVETO< 37,141); NOVETO<3»,I U ): 
PENCOLOR(NONE); 

SYSBLKC X»1,Y); 

END; 

2 : 

BEGIN 

X : alOS; DRAWBLKX ,T); 

NOVETO(107,115); WSTRING(ANSWER); 

VTS; MOVETOn3>, HI > ; 

PENCOLOR<GREEN); KOVETOt13»,I U ); 

PENCOLOR'.NONE) ; 

SYSBLKX.Y); 

IND; 
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<• SEGMENT PROCEDURE NUH «> 


»: 

UC1N 

I:-10S; DRAVBLK(Z ,X)i 

KOVETO(207,113); WSTRINC(ANSWER); 

VTS; KOVETO!137,141); PENCOLOR(CREEN); 

KOVETO<2SP,141); HOVETO<237,124); 

PENCOtOR(NONE); 

BYSBLK(K.Y); 

END; 

4 ; 

BEGIN 

l:a3S; Y:a43; DRAVBLK(Z,T); 

KOVETO!37,47); WSTR1NC<ANSWER>; 

VTS; KOVETO(73,141); PENCOLOR(CREEN); 

KOVETO!73,31>; PENCOtOR(NONE>; 

SYSBLKd, Y) ; 

END; 

3: 

BEGIN 

Z:alSS; DRAWBLK(Z.Y); 

KOVETO(157,47); VSTR1NC!ANSWER); 

VTS; KOVETO(171,141); PENCOtOR<GREEN); 

HOVETO(171,30); PENCOtORINONE); 

SYSBLKtZ,Y); 

END; 

END; <• END CASE •) 

END; (• END OP FOR LOOP *) 

KOVETO!181,105); PENCOLOR!GREEN)> 

KOVETO!200,185); PENCOLOR(NONE); 

FLAG2:»2; SYSBLK(202,171); (» FOR NODE VALUES *> 

FLAC2:»3; SYSBLK(4,171); (« FOR SYSNAKES »> 

3: alVL;Z:a7?;Y:atS0;WTS; 

REPEAT 

UNTIL KEYPRESS; 

READ(CH); 

TEZTKODE 

END; (• END DISPLAYS *) 




tfto -/ o/iy-o 


i 


y 
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(» SEGMENT PROCEDURE NUM *) 


PROCEDURE DISPLAYO; 

(• ••••••«*•*•««»*»»»..**»«#.»««***»*.***»*.*« 

t * 

* PROCEDURE DISPLAYS * 

* USE: DETERMINES METHOD OF OUTPUTTING THE TABULAR DISPLAY * 

« (CONSOLE AND PRINTER), DETERMINES THE CHILDREN OP * 

* THE INPUTTED NODE, AND PROCEEDS TO THE DISPLAY! * 

* ROUTINE. * 

a CALLED BY: SEGMENT PROCEDURE NUM (DISPLAY) * 

* ROUTINES CALLED: UNIT DASSA (CROSS) * 

a SEGMENT PROCEDURE NUM (OUTDEVICE, * 

a DISPLAY1) * 

« VARIABLES: * 

* USED: (non*) * 

« MODIFIED: (non*) * 

» * 


R2CIM 

OUTDEVICE; 

CROSS; 

DISPLAY! 

SND; 

(• END DISPLAYO «) 


| 


11 * 







(• SEGMENT PROCEDURE NUN 


BEGIN PROCEDURE DISPLAY 


IECIN 

1F<! CONTO 0 > 

THEN 

■COIN 

REPEAT 

■ECIN 

PACE(OUTPUT >; 

WE ITF(OUTPUT,*T<ABUIAR CtRAPMIC * >; 

REPEAT 

UNTIL KEYPRESS; 

READ(CH) 

END 

UNTIL!(CH«*T')0R< CH«'C * >); 

IF(CHa'T*) 

THEN DISPLAYO 

ELSE 

BEGIN 

CROSS; 

DISPLAYS; 

CH-.a'G' 

END 

END; (* END IF •) 

END; <• DISPLAY *> 












(• SECKEKT PROCEDURE HUM •> 


< • 


BEGIN SECMENT PROCEDURE NUM 


• ) 


BEGIN 

PRETOT, 

IF(CMD* 1 DIS') 

THEN 

BECIN 

REPEAT 

BECIN 

PAGE(OUTPUT); 

VRITELN<OUTPUT, 1 ENTER NODE TO BE DISPLAYED . '); 

NODIN, 

IF (ICONTOO) 

THEN 

IF (IrAYtLVL,21(1) 

THEN BECIN 

WRITELN(OUTPUT,‘NODE IS A DATA NODE AND CANNOT BE DISPLAYED 1 ) 
VH1TELN<0UTPUT,'DEPRESS RETURN TO CONTINUE 1 ); 

READLNIINPUT,ANSWER), 

END 

ELSE ICONT -ICONT 
ELSE ICONT -ICONT 
END 

UNTIL(<ICONT.O)OR<I RAYCLVL,23>.1 >> 

END 

ELSE 

BECIN 

PRETOT; 

REPEAT . 

BECIN 

PACE(OUTPUT); 

WRITE(OUTPUT, 1 A < L1 S(ELECT'); 

REPEAT 

UNTIL KEYPRESS; 

READ(INPUT,CH) 

END 

UNTIL!(CH. 1 A*)OR(CH. 1 S 1 )) , 

. IF(CH- 1 S 1 ) 

THEN BECIN 

WRITELN<OUTPUT, 1 '), 

PRENEZ 

END; 










\ 

\ 

\ 


(* SEGMENT PROCEDURE HUM •) 


OUTDEVICE 

END; 

IF(FLAC-l) 

THEN BEGIN 
PACE(OUTPUT); 

VRITELNIOUTPUT.‘WARNING . . *>; 

WRITEIN(OUTPUT,'TREE NEEDS TO BE (RE)CALCULATED'>; 
VR1TELN<OUTPUT,'OUTPUT VALUES HAY BE INCORRECT 1 ); 
VR1TELNIOUTPUT); 

VRITELN<OUTPUT,'PRESS ANY KEY TO CONTINUE 1 ); 
REPEAT 

UNTIL KEYPRESS; 

READ(CHt) 

END; 


IF(CCMD"'NUH')OR< CMD« 1 REV*)) THEN NUMERICREVIEV 
ELSE I-F (CMD« 1 DIS 1 > THEN DISPLAY; 

CLOSE(F); 

IF (( CH< > 'G 1 )AND(ORD< CK)<>2?)> 

THEN BEGIN 

VRITELN(OUTPUT); 

VRITELNtOUTPUT,'PRESS ANY KEY TO CONTINUE'); 
REPEAT 

UNTIL KEYPRESS; 

REAO(CH) 

END; 

END; (• END SEGMENT NUN •) 





) f I. 


<• SEGMENT PROCEDURE SENSITIVITY *) 


SEGMENT PROCEDURE SENSITIVITY; 


• SEGMENT PROCEDURE SENSITIVITY 

• USE: THIS SEGMENT CONTROLS ALL THE SENSITIVITY ANALYSIS THAT 

« IS IN THE DASS PROGRAM. THE SECMENT PROVIDES FOR 

• SENSITIVITY ON CUMULATIVE WEIGHTS (EFFECTS TO THE 

! • TREE STRUCTURE), RELATIVE WEIGHTS (EFFECTS ON A CIVEN 

| • SPAN AGAINST THE OVERALL TREE STRUCTURE, AND VALUE OF 

j « A SPECIFIC ALTERNATIVE ON A SPECIFIC DATA NODE. THE 

' » SEGMENT PROVIDES GRAPHICAL OUTPUT ON THE MONITOR ONLY; 

• HOWEVER, THE SEGMENT PROVIDES TABULAR (NUMBERS) OUTPUT 

• TO EITHER THE CONSOLE OR THE LINE PRINTER. THE 

• SEGMENT ALSO HAS THE CAPABILITY TO PRESENT THE GRAPHICAL 

• OUTPUT IN TWO FORMS. THE FIRST FORM GIVES THE RANGE OF 

• THE VALUES OF THE ALTERNATIVES AT THE NODE IN QUESTION 

• FROM 0-100, WHILE THE SECOND GIVES THE RANGE OF VALUES 

« OF THE ALTERNATIVES AS THE NEAREST 20 FROM THE LOWEST 

■ • AND HIGHEST VALUES OVER THE SENSITIVITY RANGE UNDER 

« CONSIDERATION. 

• CABLED BY: PROGRAM DASS 

« ROUTINES CALLED: SECMENT PROCEDURE SENSITIVITY (WARNING, 

« DETERMINENODE,CALCARRAY.TABDISPLAY, 

• GRAPH) 

• VARIABLES: 

• USED: FLAG (st« UNIT OASSA) 

« MODIFIED: CH (••• UNIT DASSA) 

• CHI.SENS (••• SECMENT PROCEDURE SENSITIVITY) 

• 

ittttcoseiMttMiiixnittittumitittmtitiiiititiiiitttmtt t > 
VAR 

DELTA.W,WHIN,VMAX.WMAZl,VDELTA,MIN,MAI,X:REAL; 

SYSNUFJ, INDX, I, J,K,L: INTEGER; 

WH0L9: ARRAY C0 . . 10,0. .MAISYSTEMS] OF REAL; 

SYSNAtfg,SENS:STRING; 

CHI:CHAR; 
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<« SECKENT PROCEDUF.E SENSITIVITY •> 





\ 


\ 


PROCEDURE ANYKEY; 


PROCEDURE ANYKEY 

USE: SIMPLY WRITES OUT A HESSACE TO DEPRESS ANY KEY 

TO CONTINUE PROCESSING. IS CALLED THOUCHOUT THIS 
SECKENT. 

CALLED BY: SECKENT PROCEDURE SENSITIVITY (SSKVALUE, 
DETERHINENODE,WARNING) 

ROUTINES CALLED: (non*) 

VARIABLES 

USED: (non*) 

MODIFIED: CK (m UNIT DASSA) 


» 


BEGIN 

WRlTEUttOUTPUT.*<ANY KEY) CONTINUE*); 
REPEAT 

UNTIL KEYPRESS; 

READ(INPUT,CH) 

END; 









<» SEGMENT PROCEDURE SENSITIVITY *) 


PROCEDURE WARNING; 


PROCEDURE VARNINC * 

USE: PRODUCES MESSAGE IF VALUES, WEIGHTS, OR * 

ALTERNATIVES HAVE BEEN ADDED/DELETED TO THE TREE • 

STRUCTURE AND THE TREE HAS NOT BEEN RECALCULATED • 

SINCE. • 

CALLED BY: SEGMENT PROCEDURE SENSITIVITY • 

ROUTINES CALLED: SEGMENT PROCEDURE SENSITIVITY (ANYKEY) • 

VARIABLES: * 

USED: (non*) * 

MODIFIED: (non*) • 

tttttttotiitittttmtiiitttiittittitiitiittimtiitititimi t) 

BEGIN 

WRITELNtOUTPUT,'WARNING . . .'); 

WRITELN(OUTPUT,‘TREE NEEDS TO BE <RE CALCULATED'); 

WR1TELN(OUTPUT,'REPORTED VALUES MAY BE INCORRECT!'); 

WRITELN(OUTPUT); 

ANYKEY 

END; 
























1 

t 


(• SECHENT PROCEDURE SENSITIVITY >) 

PROCEDURE DETERHINENODEi 


PROCEDURE OETERHINENODE * 

USE: SOLICITS INFORMATION FROM THE USER CONCERNINC WHAT a 
NODE THE SENSITIVITY ANALYSIS IS TO TAKE PLACE. • 

THE PROCEDURE CONTAINS SAFEGUARDS THAT PREVENT • 

SENSITIVITY ANALYSIS SEINC CONDUCTED ON NON-EXISTENT * 
NODES AND NON-DATA NODES WHEN VALUE SENSITIVITY IS * 
TO TAKE PLACE. • 

IN ADDITION, SOLICITS INFORMATION CONCERNING THE • 

MAXIMUM AND MINIMUM LIMITS THAT THE SENSITIVITY • 

ANALYSIS IS TO BE CONDUCTED a 

THIS PROCEDURE HAS ONE SUBORDINATE PROCEDURE THAT • 
SOLICITS INFORMATION WHEN VALUE SENSITIVITY IS TO • 

BE CONDUCTED. a 

CALLED BY: SEGMENT PROCEDURE SENSITIVITY a 

ROUTINES CALLED: UNIT DASSA (PRENEX,CROSS,STRTOREAL) a 

SEGMENT PROCEDURE SENSITIVITY (SENVALUE. ■ 
ANYKEY) a 

VARIABLES a 

USED: IRAY.ARAY,NODELABEL (tat UNIT DASSA) a 

SENS SEGMENT PROCEDURE SENSITIVITY) a 

MODIFIED: LVl,1CONT,ANSWER (••• UNIT DASSA) a 

1NDX,I,UMAX.WHIN,UMAX1 (sat SEGMENT a 

PROCEDURE SENSITIVITY) a 

laaaaaaaaaaaaaataaaataaataaaaaaaaaaataaaaaaataaaaaaaaaaa. a> 


Hi 








<* SECMENT PROCEDURE SENSITIVITY *> 




PROCEDURE SENVALUE; 


PROCEDURE SENVALUE • 

USE: SUBORDINATE PROCEDURE TO DETERMINENODE. THIS PROCEDURE * 

DISPLAYS ALTERNATIVES (SYSTEMS) WHICH ARE AVAILABLE • 

FOR VALUE SENSITIVITY ANALYSIS IN ADDITION, THE » 

PROCEDURE READS IN THE USER'S CHOICE AND DETERMINES IF • 

IF THE INPUT VALUE IS INDEED AN EXISTING ALTERNATIVE * 

(SYSTEM). AFTER A CORRECT ENTRY IS MADE, THE PROCEDURE « 
DISPLAYS THE CURRENT VALUE OF THE ALTERNATIVE (SYSTEM) * 
AT THE PARTICULAR DATA NODE. * 

CALLED BY: SEGMENT PROCEDURE SENSITIVITY (DETERMINENODE) • 

ROUTINES CALLED: SEGMENT PROCEDURE SENSITIVITY (ANYKEY) • 

VARIABLES: • 

US.ED: SYSTEMS :SYSTEMNAME, NSYS, TENSTRING, VRAY, LVL, • 

MAXLABELSIZE (m UNIT DASSA) • 

MODIFIED: ANSWER (ft* UNIT DASSA) • 

SYSNUM,SYSNAME,I (ft* SEGMENT PROCEDURE • 

SENSITIVITY) « 


BEGIN 

REPEAT 

BEGIN 

VRITFLMIOUTPUT); 

WRITELHIOUTPUT,'SYSTEMS AVAILABLE*); 

FOR I:«l TO NSYS DO 
BEGIN 

SEEK!SYSTEMS.1-1); 

CET(SYSTEMS); 

WITH SYSTEMSa DO WRITEIN(OUTPUT, * • ,SYSTEMNAME ) 

END; 

VRITEIM(OUTPUT); 

WRITELM(OUTPUT,'ENTER SYSTEM OF WHICH VALUE IS'); 

VRITSLW(OUTPUT,'TO BE PRETURBED. . .'); 

READLJM INPUT,ANSWER); 

ANS u 5ft:«COPY(CONCAT(ANSWER,TENSTRING),I,MAILABELS IZE); 
SYSMUH:*»0; 

FOR i:«I TO NSYS DO 
BEGIN 

SEfX(SYSTEMS,I-1); 

CET(SYSTEMS>; 

WITH SYSTEMSA DO 

I? (ANSVER»SYSTEMNAME) THEN SYSNUM: >1; 
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/ / 


(* SEGMENT PROCEDURE SENSITIVITY •> 


END; 

SYSNANE:■ANSWER; 


IF (SYSNVNsO) 

THIN 

BEGIN 

VRITELNtOUTPUT,* SYSTEM ENTERED NOT VALID'); 

ANYKEY; 

PACE(OUTPUT) 

END; 

END 

VNTIKSYSNUHOO); 

VRITELNIOUTPUT,'CURRENT NODE VALUE IS ‘,VRAYCLVL,SYSNUMI:S:2); 


END; (• END SENVALUE •) 




(• SEGMENT PROCEDURE SENSITIVITY *) 


• • 


* BEGIN PROCEDURE DETERM INENODE • 



BEGIN 

(NOS:«0; 

REPEAT 

BEGIN 

PACE(OUTPUT); 

WHITELN(OUTPUT,’SENSITIVITY ANALYSIS FOLLOWS:*>; 

VRITELN(OUTPUT,*NRN FOR WHICH ‘.SENS,* IS*); 

WRITELN(OUTPUT,'TO BE PRETURBED'); 

PRENEZ; 

IF(ICONTsO) 

THEN 

VRITELN<OUTPUT,'NODE DOES NOT EZIST...') 

ELSE 

IF((COPY(SENS,1,1)«*V*)AND(I RAY ILVL,21(> 0 > > 

THEN 

BEGIN 

WRITELN(OUTPUT,'NODE NOT DATA NODE...*); 

1CONT:■# 

END, 

IF (ICONT-O) THEN ANYKEY; 

END 

UNTIL(ICONT«l); 

FOR I-l TO LVL DO WRITE(OUTPUT,IRAYEI,1J,' *>; 
WRlTSLN(OUTPUT,NODELABEL:iVL3); 

IF(COPY(SENS, 1,1) ■ ' C' ) 

THEN 

VRITELN(OUTPUT,'CURRENT NODE CUMWT IS',ARAYCLVL,2J:5:2) 
ELSE 

IF(COPY(SENS,1,1)«'V' ) 

THEN SENVALUE 

ELSE 

BEGIN 

yRTTElNIOUTPUT,'CURRENT NODE RELWT IS *,ARAYCLVL,11:S:2); 
IMQZ:•IRAYtLVL,11; LVL:-LVL-1; 
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(» SEGMENT PROCEDURE SENSITIVITY •» 


CROSS 

END; 

IP (SENS*'VALVE') THEN WMAX:al00 

ELSE WMAX: at; # 

REPEAT 

IEGIM 

VRITEtOUTPUT,‘MINIMUM ‘.SENS,* (8 - *.WMAE:5:I,■) IS » •); 

READEN(INPUT,ANSWER1; 

WHIM:aSTRTOREALCANSWER) 

END 

UNTIK(WHIN)a0)AND(<(VMIN<al.0)AND(SENS< >'VALUE')>0R 
(<VM!N<«100.0)AND(SENS*'VALUE'>)>>; 

REPEAT 

BECIN 

WRITE(OUTPUT.'MAXIMUM •.SENS,'(',WHIN:5:1.' - *.UMAX:S:1,•) 18 » * 
READLNCINPUT.ANSWER); 

WHAXI:aSTRTOREALCANSWER) 

END 

UNTIL((WMAX1>aWMlN)AND(((WMAX1<■!■0)AND(SENS(>'VALUE'>)OR 

((WMAX1<al00.0 >AND(SENSa'VALUE'))>); 

WMAX:aWMAX1 

END; (« END PROCEDURE DETERMINENODE •) 
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I* SEGMENT PROCEDURE SENSITIVITY *> 


PROCEDURE CALCARRAY; 

(i *««*t•**•*«•«*••*t<**«*t««i»«**tt*tt*t«**(tii**t**t*«t«i«**<«***t« 

• PROCEDURE CALCARRAY », 

• USE: THIS PROCEDURE CALCULATES THE SENSITIVITY ANALYSIS VALUES * 

• FOR ALL OPTIONS CURRENTLY IN DASS. PLACES THE ANALYSIS • 

• VALUES IN THE VHOLD ARRAY TO FACILITATE DISPLAY IN EITHER * 

• THE GRAPHICAL OR TABULAR MODE. THE VARIABLE CONTROL • 

• DETERMINES THE SENSITIVITY WHICH IS TO BE ACCOMPLISHED * 

• RASED ON USER INPUT. • 

• CONTROL .1 ... CUMULATIVE SENSITIVITY * 

« CONTROL ml ... VALUE SENSITIVITY * 

• CONTROL ml ... RELATIVE SENSITIVITY * 

• THE ACTUAL CALCULATIONS OP THE VALUES AS THE SENSITIVITY • 

• ANALYSIS IS BEING CONDUCTED IB DONE VIA THE CASE • 

• STATEMENT. • 

• THE RELATIVE VEICHT SENSITIVITY ANALYSIS IS CONDUCTED • 

• BY VARYING THE NODE DESIRED OVER THE INPUTTED RANGE AND * 

• THE OTHER SIBLINGS RECOMPUTED TO MAINTAIN RELATIVE * 

• IMPORTANCE AMONG THEMSELVES AND COMPLEMENTING THE * 

• SENSITIZED NODE. * 

• CALLED BY: SEGMENT PROCEDURE SENSITIVITY • 

• ROUTINES CALLED: (non*) • 

• VARIABLES: • 

« USED: NCROSS.IRAY,ARAY>LVL,NSYS (*•• UNIT DASSA) « 

• SENS,INDY,SYSNUM (set SEGMENT PROCEDURE SENSITIVITY)* 

• MODIFIED: VDELTA,WMAE,VMIN,I,Z,VHOLD.L,K (•*• SEGMENT * 

• PROCEDURE SENSITIVITY) • 

• SUM,VTEMP.NEVSUM,CONTROL (••• PROCEDURE • 

• CALCARRAY) • 


VAR 

VTEMP.NEVSUM,SUM:REAL; 
CONTROL:INTEGER; 


BEGIN 

VDELTA:■(VMAI-VMIN)/1 0; 

IP(SENSm*CUHVT') THEN CONTROL:«l 
ELSE . IT<BENS.'VALUE') THEN CONTROL:ml 
ELSE CONTROL:m3; 

IP(CONTROL.J> 

THfcN 

BECIN 











t* SEGMENT PROCEDURE SENSITIVITY «> 


SUK:-0; 

Pot t:•! TO NCROSS 00 
IP<INDX<>IRAYCLVL*I.13) 

THEM SUM:»SUH*ARAYCLVltI,1J 
END; 

• 

rOR I :mO TO 10 DO 
BEGIN 

«:-I i 

X.»I*VDELTA+VWIN; 

VHOLDC1,03:aX; 

POR K:>! TO NSYS DO 
CASE CONTROL OF 

1: VHOLDC1,X3:-(VRAYtLVL,X]«Z)«{(t.z)*(<VRAYCI,K3-<VRAYCLVL.X]* 

ARAPCEVL,211)/<i-ARAYttVL,IJ>)> ; 

1: lF(K-SYSNUN) THEN WHOLDlI,KJ : -VRAYCI,K3-ARAYCLVL.23MX-VRAYCLVL X3> 
ELSE VK0lDIl.X3:«VRAYtl,Kl; 

1: BECIN 

VHOLD CI.X 3:.VRAY CI.X 3-VRAY t LVL,X 3•ARAYILVL,2 3; 

FOR L:>! TO NCROSS DO 
IF(INDIOL) 

THEM ARAYim ,t El* WH0t0n ' ,tUn " X) * VRA?tLVt * t ' K,imVtt VL 4 L.»3/SUN* 

ELSE VHOLDCI «K1:-VHOLDC1,X3-X*VRAYCLVL*L,X3*ARAYtLVL,23 

END 

END <t end CASES AND X «> 

END; 

VRITELNCOUTPUT) 

END; 


u: 



<• SECHENT PROCEDURE SENSITIVITY 


PROCEDURE HEADERS!I:INTEGER); 

(• Hituttmtiitttiitttitii 


PROCEDURE HEADERS 

USE: PROVIDES HEADINCS TO THE SENSITIVITY ANALYSIS WHEN 
TARULAR1ZED RESULTS ARE REQUESTED THESE HEADINCS 
STATE THE TYPE OP SENSITIVITY (INCLUDING ALTERNATIVE 
IP VALUE SENSITIVITY IS BEING DONE) AND THE NODE 
REFERENCE NUMBER (NRN). 

CALLED BY: SEGMENT PROCEDURE SENSITIVITY (TABDISPLAY, 

GRAPH) 

ROUTINES CALLED: DASSA <INTTOSTRING) 

VARIABLES: 

USED: LVL.ISTR.IRAY,NODELABEL (■•• UNIT DASSA) 

SENS<1ND1 (*•• SEGMENT PROCEDURE SENSITIVITY) 
MODIFIED: ANSWER (*•• UNIT DASSA) 

I (it# SECHENT PROCEDURE SENSITIVITY) 


* 


BECIN 

ANSWER:-" ; 

CASE I OF 

I: BECIN 

IF1BENS-'VALUE') THEN ANSWER:-CONCAT(• ( ’,SYSNAME,*>‘; 
ANSWER:-CONOAT(SENS,ANSWER,* SENSITIVITY ANALYSIS’); 
END; 

2: BECIN 

ANSWER:-CONCATI‘FOR ',MODELABELtLVL+INDX),' NRN: ’>; 
FOR t:-I TO LVL DO 
BECIN 

INTTOSTRINC(IRAYCI.il); 

ANSWER:-CONCAT(ANSWER,ISTR,’ •> 

END; 

!F( INOXOO) 

THEN 

BEGIN 

INTTOSTRING!I RAYCLVL*INDY,11); 

ANSWER:.CONCAT(ANSWER.ISTR,' ') 

END; 

END 

END (• END CASE •) 

END; (* END PROCEDURE HEADERS •> 














(• 8ECHENT PROCEDURE SENSITIVITY 


PROCEDURE TABDISPLAY; 

<• mtiiHiinttitti 


PROCEDURE TABDISPLAY 

USE: SOLICITS WHETHER THE SENSITIVITY ANALYSIS IS TO BE 
OUTPUTTED ON THE CONSOLE OR THE LINE PRINTER. THE 
PROCEDURE THEN PRINTS UP APPROPRIATE HEADERS AND LISTS 
NUMERICALLY THE RESULTS OF THE SENSITIVITY WITH THE 
SENSITIVITY VALUES DOWN THE ROWS AND THE OVERALL VALUES 
FOR EACH ALTERNATIVE (SYSTEM) ACROSS THE COLUMNS. 

AN ASTERISK <») IS PRINTED BY THE ALTERNATIVE WHICH HAS 
THE LOWEST VALUE IF THE ATTRIBUTE CHARACTERISTIC UNDER 
OPTION ATT STARTS WITH AN R. AN ASTERISK (*) IS PRI’.TED 
BY THE ALTERNATIVE WHICH HAS THE HICHEST VALUE IF THE 
ATTRIBUTE CHARACTERISTIC UNDER OPTION ATT STARTS WITH 
ANYTHING BUT AN R. 

CALLED BY: SEGMENT PROCEDURE SENSITIVITY 

ROUTINES CALLED: SECMENT PROCEDURE SENSITIVITY (ANYKEY) 

VARIABLES: 

USED: LATT.NSYS,SYSTEMS:SYSTEMNAME (>•• UNIT DASSA) 

SENS,WHOLD (••• SEGMENT PROCEDURE SENSITIVITY) 
MODIFIED: ANSWER,CH («•• UNIT DASSA) 

X,I (••• SEGMENT PROCEDURE SENSITIVITY) 
F.A.W.STAR (■•• PROCEDURE TABDISPLAY) 


F:FILE OF CHAR; 

A:STRINC; 

V:REAL; 

STAR:INTEGER; 

BECIN 

REPEAT 

BECIN 

PAGE(OUTPUT); 

WRITE(OUTPUT,’TABULAR: C(ONSOLE P(RINTER’); 
REPEAT 

UNTIL KEYPRESS; 

READ!INPUT.CH) 

END 

UNTIL<(CH»’C’)OR(CHa•P• )); 

IF(CHa'P•) 

THEN REWRITE(F,’PRINTER:’) 

ELSE REWRITES, ’CONSOLE:’); 










(» SEGMENT PROCEDURE SENSITIVITY »> 

A:sCOPY( LATT.1.1): 

PACE(F): 

HEADERS!1); VRITELN!F,ANSWER); 

HEADERS!2); VRITELN!F,ANSWER); , 

ANSWER:aCONCAT(SENS. •: •>i 
FOR I:»I TO NSYS DO 
BEGIN 

SEEK(SYSTEMS,I-11; 

GET!SYSTEMS); 

WITH SYSTEMSa DO ANSWER:-CONCAT!ANSWER,COPY(SYSTEMNAME.1, i >,* '); 
END; 

VRITELN!F,ANSWER); 

VRITELN(F); 

FOR I:aO TO 10 DO 
BEGIN 

IF(Aa R*) THEN W:-1000 
ELSE V: aO; 

STAR:-0; 

FOR K:a 1 TO NSYS DO 
IF< <(WHOCD11,K))V)AND!A!> 1 R'))0R 
((VHOLDCI,K)!V)AND(Aa'R'))) 

THEN BEGIN STAR:aK; W:aVHOLDi1,K1 END; 

WRITE(F.VHOLDC1,01:4:2,' •); 

FOR K-.al TO NSYS DO 
IF(KaSTAR) 

THEN WRITE(F.VHOLDCI,KI:4:1,*•’) 

ELSE VRITECF,VHOLDCI,K):E:1, 1 '); 

VRITELN!F); 

END; 

mCHa'C 1 ) 

THEM 

BEGIN 

VRITELN(F); 

ANYKEY 

END; 








(• SEGMENT PROCEDURE SENSITIVITY •* 










<• SEGMENT PROCEDURE SENSITIVITY •) 


PROCEDURE CRAPHHEADER; 


PROCEDURE CRAPHHEADER 

USE: SUBORDINATE PROCEDURE TO PROCEDURE CRAFH. THIS 

PROCEDURE PRINTS THE VALUES Or THE LINES OF THE 
CRAPH WHICH IS OUTPUTTED IN THE GRAPHICS NODE. 
PROCEDURE WRITES OUT THE VALUES OF THE X-AXIS. 
CALLED BY: SEGMENT PROCEDURE SENSITIVITY (GRAPH) 

ROUTINES CALLED: UNIT DASSA (NUMTOSTRING) 

VARIABLES: 

USED: CH.NSYS <■•• UNIT DASSA) 

WHOLD (m SEGMENT PROCEDURE SENSITIVITY) 
MODIFIED: ANSWER (••• UNIT D*SSA) 

MIN.MAX,I,X,DELTA,X (■•• SEGMENT PROCEDURE 
SENSITIVITY) 


BEGIN 

HIN:a100; MAX:.0; 

IF(CH.'E 1 ) 

THEN 

BEGIN 

FOR I:«0 TO 10 DO 
FOR K:•! TO NSYS DO 
BEGIN 

IF(MIN)WHOLDtI,K]> THEN MIN:-WHOLDCI,K); 

IF(MAX(WHOLDCI,K]) THEN MAX:-WHOLDII,X) 

ENO 

END 

ELSE 

BEGIN 

.HIN-0; MAX:-100; 

END; 

MIN:.TRUNC(M1N/2 0)* 20; MAX:.TRUNC((MAX*l7) 1 10>*20; 

ANSWER:."; DELTA:. (MAX-MIN) / 3 ; 

TOR I:>0 TO 3 DO 
BEGIN 

X: .1; X:.MIN + X'DELTA; 

NUMTOSTRING!X); ANSWER:«CONCAT(ANSWER,• •,COPY(ISTR,I,3)> 

ENO; 

PENCOLOR(NONE); MOVETO!21,101); WSTRING(ANSWER); 

END; (* END CRAPHHEADER «> 
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(• BECNENT PROCEDURE SENSITIVITY *' 


• • 

• BEGIN PROCEDURE GRAPH * 

• a 
*•*••*•••••****•***••••*••***•••••**••****•'■••••**■*** *) 


BEGIN 

COLOR!11:.ORANGE; COLOR!11:.VIOLET; 

COLOR!11:.BLUE; COLOR Ml:.GREEN; 

COLORtSI:.WHITE!; 

REPEAT 

BEGIN 

PACE<OUTPUT>; 

WRITE (OUTPUT,‘CP.APHIC: N(ORMAL EXPANDED *)j 
REPEAT 

UNTIL KEYPRESS; 

READ!INPUT,CH) 

END 

UNTIL!(CM.'N*)OR(CH.'E•)>; 

INITTURTLE; 

(• PRINT THE COLOR BARS DEPICTING ALTERNATIVES • 

• IN UPPER LEFT HAND CORNER a> 

FOR I:-l TO NSYS DO 
BEGIN 

8EEK(SYSTEM8,1-1) ; GET<SYSTEMS»; 

CASE I OF 

I: BEGIN VIEWPORTS,74,174, 191); FI LLSCREEN1ORANCE>; 

MOVCTO (2,179); WITH SYSTEMS* DO VSTRING(SYSTEMNAME) END; 
»: BEGIN VIEWPORTS.74,Ml,175); FILLSCREEN(VIOLET); 

KOVETO <2,140; WITH SYSTEMS* DO WSTRING (SYSTEMNAME) END; 
I: BEGIN VIEWPORT<77,153,174,171>; FILLSCREEN(BLUE>; 

KOVETO (71,177); WITH SYSTEMS* DO VSTRINC<SYSTEMNAME) END; 
<: BEGIN V1EWP0RT<77,113,141,175); FILLSCREEN(GREEN); 

MOVETO <71,140; WITH SYSTEMS* DO WSTRINC < SYSTEMNAME) END; 
S’ 5L5IN VIEWPORTUSI,231,174,171); FILLSCREENIWHITE1); 

KOVETO (140,179); WITH SYSTEMS* DO VSTRINC(SYSTEMNAME) END 

END (■ END CASES •) . 

END; 

VI EVPORT(0,279 191); 

<• DRAW THE GRAPH •) 
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(» BECMENT PROCEDURE SENSITlVITT «> 


J:«4j l .••70; 

MOVETOd »J> ; 

TOR K:•! TO 3 DO 
BEGIN 

PENCOLOR(WHITE >; 

MOVETOU.J4I00); 
HOVETOII*40,J*100>; 

MOVETO(1*40,J); 

IF IKl> 3) THEN MOVETO(UIO,J>i 

I: 

END; 

I:-70; 

FOR K:-l TO 1 DO 
BBC IN 

MOVITOd , J) ; 

MOVETO(I.J*20>; 

MOVETOi1*200,J*20); 

IF(X(>3) THEN NOVETO( 1*200,J*40); 
J:»J*40 
END; 


(• NUMBER THE X-AXIS •) 

CRAPHHEADER; 

(• LABEL THE GRAPH AXIS *> 

MOVETO(1(7,120); VBTRING( 1 VALUE'J; 

J:-72 ; 

FOR I:«0 TO 4 DO 
BEGIN 

HOVETOI12,J-I* 11>j 
WSTRINCICOPY(SENS,1*1,1)) 

EHO; 

(« WRITE THE NUMERIC VALUES ON THE V AXIS »> 

I ;-0j 
REPEAT 
BEGIN 

KUMTOSTRIHGIVHOLDt1,0)); 

MOVETOI23,101-1*10 >; 

WSTRINCI13TR) ; 

I :a!*2 
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(• SEGMENT PROCSCURE SENSITIVITY » 


UNTIL!I>It) i 

<• WRITE OUT SENSITIVITY HEADINGS •) 

HEADERS! 1 >; MOVETOI0.141>; VSTR1NC!ANSWER); 
HEADERS!2); MOVETO!0.130>; WSTRlNC<ANSWER); 

(• DRAW THE LINES ON THE GRAPH •) 

rOR I:•! TO N8YS DO 
BEGIN 
Jt:.104; 

I:v200/(KAZ-H1N); 
rOR J:>Q TO 10 DO 
BEGIN 

tl-.-TRUNC<!WKOLDtJ.n-KIN)«X>*70; 

ir <j>a) 

THEN PENCOLOR!NONE) 

ELSE PENCOLOR(COLOR tII ); 
KOVETOUl.Jl); 

J1:»JI-10 

END 

END; 

REPEAT 

UNTIL KEYPRESS; 

READ!INPUT.CK); 

TEXTht'DE 

END; (• END GRAPH *> 
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(• SEGMENT PROCEDURE SENSITIVITY »* 


• SEGIN SEGMENT PROCEDURE SENSITIVITY » 

• • 
••**••*••**•••****••****•*•••**•*•••*•***• «•»*»»• •> 

■ECIN 

IF(fLAG-l) THEN WARNING; 

REPEAT 

■ECIN 

PACE<OUTPUT>; 

WRITECOUTPUT,'SENSITIVITY: CIUMVT RIELWT VIALUE E)EIT •); 

REPEAT 

UNTIL KEYPRESS; 

READ!INPUT,CH) 

END 

UNTIL!(Cria'C>OR(CH»'R')OR(CH«'V'>OR(CH-•E• >>; 

IF(CH(> ’£' ) 

THEN 

BEGIN 

IF(CH- 1 C 1 > THEN SENS:-‘CUKVT* 

ELSE IF(CH«*R*) THEN SENS:-’RELVT* 

ELSE SENS;-•VALUE 1 ; 

DETERHINENODE; 

CALCARRAY; 

REPEAT 

BECIN 

PAGE(OUTPUT); 

VRITE(OUTPU~. SENS , ' : T)ABULAR ORAPHICAL E)XIT ■>; 
REPEAT 

UNTIL KEYPRESS; 

READ!INPUT.CHI); 

If(CH1-‘T')THEN TABDISPLAY 

ELSE IF(CHl-'G') THEN GRAPH; 

END 

UNTIL(CHI-'E' > 


END; (• END SEGMENT SENSITIVITY *) 


















(■ SECMENT PROCEDURE EEADSySTEMLABELS 


SEGMENT PROCEDURE READSYSTEMLABELS; 


BECHENT PROCEDURE SYSTEMLABELS » 

USE: THIS SEGMENT CONTROLS THE NUMBER AND LABELS OF THE • 
ALTERNATIVES USED IN THE DASS PROGRAM. FUNCTIONS * 

ARE ACCOMPLISHED B¥ THIS SEGMENT IS THE ADDITION. • 

DELETION, AND CREATION OF ALTERNATIVES. THERE ARE • 

THREE SUBORDINATE PROCEDURES WHICH SUPPORT THIS ■ 

SEGMENT. • 

CALLED BV: PROCRAM DASS • 

ROUTINES CALLED: UNIT DASSA (NODEDISKTOARRAY) • 

SEGMENT PROCEDURE SYSTEMLABELS (NEW, • 

DELSYS,AODSYS) t 

VARIABLES: • 

USED: NODE (■#• UNIT DASSA) • 

MODIFIED: CH.LVL Im UNIT DASSA) • 

iiimtttimiumtmiiMtitMtHiiitiiHiitmuiittii •> 


HI 













(* SEGMENT PROCEDURE READSYSTEMLABELS 

PROCEDURE NEW; 


PROCEDURE NEV 

USE: THIS PROCEDURE SOLICITS NAMES FOR ALTERNATIVES 

(SYSTEMS). THIS ROUTINE IS NORMALLY SELECTED WHEN 
A NEV TREE IS CONSTRUCTED AND A LIST OF ALTERNATIVES 
IS DESIRED TO BE ENTERED. 

THIS PROCEDURE CAN BE USED ANYTIME DURING THE 
THE COURSE OF THE PROGRAM. DATA IN THE TREE WILL 
NOT BE LOST IF THE NUMBER OF LABELS ENTERED ARE THE 
SAME OF THE NUMBER OF LABELS 0? THE ALTERNATIVES 
(SYSTEMS) IN THE ORICINAL STRUCTURE. IF FEVER 
LABELS ARE USED, ONLY THE DATA FOR THE LABELS ENTERED 
VILL BE ACCESSIBLE. 

CALLED BY: SECMENT PROCEDURE READSYSTEMLABELS 
ROUTINES CALLED: (non*) 

VARIABLES: 

USED: LABELSTRING (*•• UNIT DASSA) 

MODIFIED: NSYS,SYSTEMS:STSTEMNAME (hi UNIT DASSA) 
SYSLABEL (••• PROCEDURE NEV) 


VAR 

SYSLABEL : STRING; 

BEGIN 

PAGE(OUTPUT); 

NSYS:■!; 

REPEAT 

VRITE<OUTPUT,’ENTER.. SYSTEM ’.NSYS,’ LABEL? *); 
REA01N(INPUT,SYSLABEL); 

IF((SYSLABEL() 1 DONE')AND(SYSLABEL(>'')> 

THEN 

BEGIN 

SYSLABEL:«COPY(CONCATtSYSLABEL,LABELSTRING),1,10); 
SEEK(SYSTEMS,NSYS-i); 

VITH SYSTEMSa DO SYSTEMNAME:-SYSLABEL; 

PUT(SYSTEMS); 

NSYS:■NSYS*I; 

IF(NSYS>S) THEN SYSLABEL ; 

END 












(• SECMENT PROCEDURE READSYSTEHLABELS •> 


ELBE 

IF (NSYSal) 

THEM VRITELNIOUTPUT,'SORRY...YOU HUST ENTER AT LEAST ONE SYSTEM'); 

# 

UNTIL(((SYSLABELa 1 DONE‘)OR< SYSLABELa 1 '>)ANDINSYS> 1 > > ; 

N8YS:aNSYS-1; 

WRITELN<OUTPUT,‘NUM OF SYS •,NSYS> 

END; (• END NEV •> 



IM 









I* BEGHENT PROCEDURE READSYSTEMLABELS »' 


PROCEDURE DELSYS, 

(t iitiuutnttt 


PROCEDURE DELSVS 

USE: DELETES USER SPECIFIED ALTERNATIVE (SYSTEM) AND 

REMOVES THE LABEL AND ALL INFORMATION REGARDING THE 
ALTERNATIVE (SYSTEM) FROM THE TREE STRUCTURE. 

CALLED BY: SEGMENT PROCEDURE READSYSTEHLABELS 
ROUTINES CALLED: (non*) 

VARIABLES: 

USED: TENSTRINC.MAXLABELSIZE,MAYSYSTEMS,NNODZS 
(••• UNIT DASSA) 

MODIFI"0: NODE:SYSTEHVALUE,SYSTEM:SYSTEMNAME. 

KSYS,1,ANSWER,ISTR.L (••• UNIT DASSA) 
SYS.J («•• PROCEDURE DELSYS) 


t 


VAR 

SYS:ARRAY C1..MAZSYSTEMS1 OF STR1NC; 

J:INTEGER; 

BECIN 

PACE (OUTPUT); 

VRITELNCOUTPUT,'CURRENT SYSTEMS. . 

SEEK<SYSTEMS.«>; 

FOR I: ill TO NSYS 00 
BECIN 

CET(SYSTEHS); 

WITH SYSTEMSA DO 
BEGIN 

SYS111:■SYSTEMNAME; 

VRITELN(OUTPUT,SYSTEMNAME) 

END 

END; 

VRITELNtOUTPUT,‘ENTER SYSTEM TO BE DELETED *>; 

READLN(INPUT,ANSWER); 

ANSWER:aCOPY(CONCAT(ANSWER,TENSTRINC),I,MAZLABELSIZE); 
ISTR:»'*; 

FOR I:al TO NSYS DO 
IF(SYStIlaANSVER) 

THEN BECIN 
ISTR:-ANSWER; 

L: >1 
END; 

IFdSTR.” ) 

THEN WRITELN(OUTPUT,’SYSTEM NOT FOUND’> 

ELSE 


MS 













(■ SECKENT PROCEDURE FEADSYSTEHlABELS • 


IIC IN 

ICR t:-L TO (HAISYSTEMS-l) DO 
IECIN 

IKEK(STSTEHSi I); 

CET< SYSTEMS); 

SEEK SYSTEMS, 1-1 >; 

PUT(SYSTEMS); 

WITH STSTEMSa DO SYSTEMNAME:■ 1 NONE ' ; 
PUT<SYSTEMS); 

END; 

YOR I:«t TO NNODES DO 
IECIN 

SEEKNODE,I >; CET(NODE); 

WITH NODEa DO 

YOR J:«L TO (HAISYSTEMS-I) DO 
IECIN 

SYSTEHVALUEIJ]:.SYSTEHVALUEIJ+I); 

SYSTEHVALUEIJ«1):.0 

END; 

SEEKNODE, I ) ; PUT (NODE) 

END; 

NSYS:aNSYS-t 
END 
END; 


Hi 







<* SEGMENT PROCEDURE READSYSTEMLABELS *) 


PROCEDURE ADDSYS; 


PROCEDURE ADDSYS • 

USE: ADDS AN ALTERNATIVE (SYSTEM) LABEL TO THE TREE • 

STRUCTURE. CHECXS TO MAKE SURE THAT NO MORE THAN ■ 

THE MAXIMUM NUMBER OE SYSTEMS CAN BE ADDED TO THE < 

STRUCTURE AND PROVIDES A MESSAGE TO INSERT VALUES • 

FOR THE NEW ALTERNATIVE (SYSTEH). • 

CALLED BY: SEGMENT PROCEDURE REAOSYSTEMLAEELS * 

ROUTINES CALLED: (nona) .* 

VARIABLES: • 

USED: MAXBYSTEKS.TENSTRINC.MAXLABELS12E Uaa UNIT • 

DASSA) • 

MODIFIED: NSYS.FLAG,ANSWER,SYSTEMS:8YSTEMNAHE Uaa • 

UNIT DASSA) * 

laaaaaaaaataataataaaaaaataataaataaaataaaaaaaaaaaaaataaaa *> 


BEGIN 

WRITEINCOUTPUT,• •); 

IP CMSYS-MAX SYSTEMS) 

THEN WRITELHCOUTPUT,‘MAX NUMBER OF SYSTEMS EXCEEDED*> 

ELSE 

BEGIN 

NBYB:-NSYStl; 

BEEKtSYSTEMS.NSYS-1); 

PAGE(OUTPUT)i 

WRITELNCOUTPUT,'ADDINC SYSTEM*); 

WRITECOUTPUT,’LABEL) •>; 

WITH SYSTEMS* DO 
BEGIN 

READLNIINPUT.ANSWER); 

SYSTEMNAME:-COPY(CONCATC ANSWER.TENSTRING),l.MAILABELSIXE > 
END; 

PUTCSYSTEMS); 

VRITELNCOUTPUT.'USE VVC FOR ENTERING VALUES AND*); 

WRITELNCOUTPUT,'RECALCULATING TREE* >; 

FLAG:-I; 

END 

END; 


It) 







(* SECNENT PROCEDURE READSYSTEMLABEIS 


t 

• BEGIN SEGMENT PROCEDURE READSYSTEMLABEIS 

* 


t 


BEGIN 

REPEAT 

BEGIN 

PAGE!OUTPUT); 

WRITE(OUTPUT.'A<DD DCELETE N(EV E<XIT*>; 
REPEAT 

UNTIL KEYPRESS; 

READ<CHI; 

IPICH-'N’) THEN NEW 

ELSE IF<CH-‘D‘) THEN DELSYB 

ELSE IF(CHa'A') THEN ADDSYS; 

LVL:-1; 

SEEK(NOOE.l); 

CET(NODE); 

NODEDISKTOARRAY(LVL) 

END 

UNTIL(CHa■E *); 

VRITELH(OUTPUT,* •) 


END; 


IM 
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I* SEGMENT PROCEDURE HODPRU •> 


SEGMENT PROCEDURE HODPRU; 


SECHENT PROCEDURE HODPRU « 

USE; THIS SECHENT SUPPORTS OPTIONS HOD AND PRU (MODIFY THE TREE * 
STRUCTURE AND PRUNE THE TREE STRUCTURE, RESPECTIVELY). • 

PROCEDURE MODIFY HAS NO SUBORDINATE PROCEDURES, WHEREAS • 

PROCEDURE PRUNE HAS FOUR. • 

CALLED BY: PROCRAM DASS • 

ROUTINES CALLED: SECHENT PROCEDURE HODPRU (PRUNE,HODIFY) ■ 

VARIABLES: • 

USED: CHO (••• UNIT DASSA) • 

MODIFIED: (non*) • 

IOOOOOOOO*•**••*•*•**••••***••*•*•••**••••**••••••••«•*•■•■•**•• •) 








/ 



PROCEDURE PRUNE; 


(• SECHENT PROCEDURE HODPRU •> 

/ 


(• • •••••••••••••••••••*•••••■•••••••*•••••■•••';•••*•••■■•••••••■••■ 

PROCEDURE PRUNE • 

USE: USED TO PERMANENTLY REMOVES NODES AND BRANCHES FROM THE • 
TREE STRUCTURE. ACCOMPLISHES THIS TASK BY LOADINC ALL > 
NODE LINKINC INFORMATION INTO AN ARRAY (PRAY), IDENTIFIES • 
NODE(S) TO BE ELIMINATED. RELINKS THE REMAININC STRUCTURE,* 
REMOVES THE PRUNED NODES, COMPRESSES THE TREE STRUCTURE • 
SUCH THAT THE NODES PRUNED CAN NOW BE AVAILABLE FOR RE- • 
ASSIGNMENTS. AND REWRITES THE TREE STRUCTURE ON THE DATA • 
PILE. » 

CALLED BY: SECHENT PROCEDURE MOOPRU • 

ROUTINES CALLED: UNIT DA8SA (PRENEX.NEXT,PRETOT,NODEDISKTOARRAY)• 
SECHENT PROCEDURE MODPRU (VDOT,RELINK.COMPRESS.• 
REWRITE) • 

VARIABLES: • 

USED: CH.KNODES,ICONT.NODE:ICELLNUMBER.NRNDICIT,DOWNLINK, • 

CROSSLINK,BACKLINK1.MAXARRAYS1ZE • 

HAXNUHBEROFNODES (••• UNIT DASSA) • 

MODIFIED: CH,IRAY,1,LVL,NOEEP,FLAG (*•• UNIT DASSA) • 

PRAY,PRNUM,NEWNNODES.NEWLVL (••• PROCEDURE PRUNE)* 

••••••■••••••••••••••■•••••••••••■•••••••■■••••■•••••■•••■■••••« *) 


VAR 

PRAY:ARRAY tl..i.0..HAXNUHBEROFNODESI OF INTEGER; 
NEWLVL.NEWNNODES.K.FLACI,J,PRNUM:INTEGER; 


tss 









<* SEGMENT PROCEDURE HODPRU »> 


PROCEDURE VDOTi 

<• mitmHituHititttmtiMttHiittitiitttfiiutMttHttt 

• 

• PROCEDURE VDOT 

• USE: THIS PROCEDURE DRAWS A DOT AFTER VARIOUS FUNCTIONS OF 

• PRUN1NC TO LET THE USER KNOW THAT SOMETHING IS 

• HAPPENING. 

• CALLED ST: SEGMENT PROCEDURE HODPRU (PRUNE) 

• ROUTINES CALLED: (non*) 

« VARIABLES: 

• USED: (non#) 

• MODIFIED: (nono) 


REGIN 

WRITE(OUTPUT,'.•> 
END; 















(• SEGMENT PROCEDURE HOOPRU «) 


PROCEDURE RELINK; 


• PROCEDURE RELINK 

• USE: THIS PROCEDURE IS USE* TO RELINK THE TREE STRUCTURE 

• AFTER DELETINC THE BRANCH Of THE TREE DESIGNATED ST THE 

• USER. THE ONLY LINX8 THAT ARE RELINKED ARE THE 

• DOWNLINKS, CROSSLINKS, AND THE BACXLINKS. THE NRM 

/» DIGITS ARE RE'DESICNATED IN THE MAIN BODY OF THE PRUNE 

• PROGRAM. 

• CASES ADDRESSED: 

• 1) PRUNING THE OESCENDENTS ONLY OPTION IS 

• RE0UE8TED. THE DOWN LINK< 8 > OF THE NODE 

• INPUTTED AXE REMOVED. 

• I) OPTION N IS EXECUTED. THE NODE INPUTTED IS THE 

• LAST NODE ON THE SPAN. 

• B) OPTION N IS EXECUTED. THE NODE INPUTTED IS THE 

• FIRST NODE ON THE SPAN. 

• 4) OPTION N IS EXECUTED. THE NODE INPUTTED IS IN 

• THE MIDDLE OF THE SPAN. 

• CALLED BY: SEGMENT PROCEDURE MOOPRU (PRUNE) 

• ROUTINES CALLED: (nan*) 

• VAR'ABLES: 

• USED: CH (lit UNIT DASSA) 

• PRtPIH (ill PROCEDURE PRUNE) 

• MODIFIED: PRAY <••• PROCEDURE PRUNE) 


BEGIN 

IF(CH*'D’> 

THEN FRAYt 4,PRNUMI:*0 
ELSE 

IF ((PRAY13,PRNUMI*0)AND<PRAY13,PRNUHI>I)) 
THEN 

PRAYC 3,PRAYC4,PRNUMI3'*0 
ELSE 

IF(PRAT[3,PRNUMI*I> 

THEN 

BEGIN 

PRAY!4,FRAY(4,PRNUMII:*PRAY(5,PRNUMI; 
PRAYli.PRL/13,PRNUMI1:-PRAYI 4,PRNUMI 
END 


ELSE 

BECIN 

FRAYt 4.FRAYt3.PRNUMI) :*PP.AVt 4.FRNUM); 



























(• SEGMENT PROCEDURE HODPRU ■> 

PROCEDURE COMPRESS; 


PROCEDURE COMPRESS • 

USE: THIS PROCEDURE REASSIGNS NODE NUMBERS TO THOSE NODES • 
WHICH REMAIN IN THE TREE AFTER THE INPUTTED NODE AND • 

DESCENDENTS ARE ZEROED. REASSIGNMENT RESULTS IN THE • 

PRUNED NODES 8EING FREED TO TAXE ON NEW NODE • 

DEFINITIONS. THIS COMPRESSION IS USED TO MAKE THE • 

HOST USE OF THE LIMITED NUMBER OF NODES (CURRENTLY !00>* 
AVAILABLE IN THE PROGRAM. • 

CALLED BY; SEGMENT PROCEDURE HODPRU (PRUNE) • 

ROUTINES CALLED; (n«B«> • 

VARIABLES: • 

USED: MNOOES (it* UNIT DASSA) * 

MODIFIED: I (••• UNIT DASSA) • 

PRAY.J.K/FLAG1,NEVNHODES (••• PROCEDURE PRUNE)* 

HttmtitttitmtttttmtutmittmMHtumuttittttittt «) 

BEGIN 

FOR I:•! TO NNODES DO 
BEGIN 

IF(PRAVI2,MaO> 

THEN 
BEGIN 
J :■!*!; 

FLAG1:«0 ; 

VHILE((J<«NN0DE3>AND(FLAGl«0>) DO 
IF< PRAY!I,J)» 0) 

THEN J:aJ*l 
ELSE 

FOR K:»2 TO i DO 
' BEGIN 

PRAYCX, 11 .-aPRAYCK, JJ ; 

PRAYCK,J2:*0; 

FLAC1:al 
END 

END 

END; 


(• RELABEL THE LINKS *> 

I: aO; 

FLAG!:a0; 
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(• SEGMENT PROCEDURE HODPHU • 


REPEAT 

BEGIN 

!:•!♦»; 

IF(PRATC 2. I laO) THEN FLACl:al 
END 

UNTIL(FLAG1 at) ; 

NEVNNODES:■I- I; 

FOR I:a| TO NEVNNODES DO 

FOR <I:al TO NEVNNODES DO 
FOR R:a< TO i DO 

IF (PRATER.J2apftATE2.il) 
THEN PRATER.Jl:aPRATEI.IIj 







(• SEGMENT PROCEDURE MODPRU •> 


PROCEDURE REWRITE; 


PROCEDURE REWRITE 

USE: REWRITES THE PRUNED TREE DAT* SACK TO THE DISK riLE. 
CONSERVES INFORMATION THAT WAS PRESENT WITH THE NODE 
PRIOR TO PRUNING. RATIONALES ARE ALSO CONSERVED. 

ALL NODES NOT IN THE NEW TREE STRUCTURE ARE ZEROEO AS 
IN A NEW PILE. 

CALLED BY: SEGMENT PROCEDURE HODPRU (PRUNE) 

ROUTINES CALLED: <«!•*•> 

VARIABLES: 

USED: NNODES.NAESYSTEMS (••• UNIT DASSA) 

MODIFIED- I.NODE!CELLNUMBER,NRNDICIT,DOWNLINK, 

CROSSLINK,»ACKLINX,NODETITLE,RELWEICHT, 
CUMWEICNT.SYSTEHVALUES,RATIONALEI 
(■•• UNIT DASSA) 

NEWMMODES.J <••• PROCEDURE PRUNE) 


FOR I:.I TO NEWMNOOES DO 
BEGIN 

SEEK(NODE,PRAYC J, ID ; 

CETINODE); 

WITH NODE* DO 
BEGIN 

CELINUMEERTb!; NRNDICIT:■PRAY!3,1); 

DOWNLINK:-PRAYM,11; CROSSLINK;»PRAYI5,II; BACKLINK:-PRAYti. I) 
END; 

SEEK(NODE,I) ; 

PUT!NODE) 

END; 

WITH NODE* DO 
BEGIN 

NODETITLE:-'BLANK 

CELLNUM8ER:-0; NRNDICIT:.D; DOVNL!NK:-0; 

CROSSLINK:-0; BACKLINK:-0; RELWEIGHT:-0.0; 

CUMVEICHT:-0.0; 

FOR J:-I TO MAXSYSTEMS DO SYSTEMVALUESIJJ:-0; 

RATIONALE:-'NO COMMENT' 

END; 

FOR J:-NEWNNODES*1 TO NNODES DO PUT(NODE); 




















<• SECHENT PROCEDURE MODFRU •> 


• BEGIN PROCEDURE PRUNE 


BEGIN 

REPEAT 
■ ECIN 

FACE(OUTPUT); 

WRITE(OUTPUT.'N(ODE*DOVN D(OWN ONLY E(IIT'); 
REPEAT 

UNTIL KEYPRESS; 

READ!INPUT.CM) 

END 

UNTIL < C CH«‘N*)OR(CHa•D*)OR(CHa•E'> >; 

IFICHO'E*) 

THEN 

BEGIN 

EOR I:>1 TO NNODES DO 
RECIN 

SEEK NODE, I); 

CET(NODE); 

WITH NODEa DO 
BEGIN 

PRAYCI.IJal; 

FRAY!2,11:-CELLNUHBER; 

PRAY(3.11:■NRNDICIT; 

PRAYM.il: ■ DOWN LINK; 

PRAYIS,I):"CROSSLINK; 

PRAYU.il i.BACKLINK; 

END 

END; 


WRITE LN< OUTPUT); 
PRENEZ; 


IP (( IRAYtLVL, 3 IaO )AND( CH»'D’ ) ) 

THEN 

BEGIN 

VRJTEDMOUTPUT,'YOU CANNOT PRUNE A DATA NODE WITH'); 
WRITELN(OUTPUT,'A DOWN ONLY OPTION . . '); 
WRlTELMtOUTPUT,'PRUNE TERMINATED . . .'); 


131 









I* SEGMENT FROCLDURE MODPRU • 


WR1TELNIOUTPUT, ' <ANY KEY) CONTINUE*>; 

REPEAT 

UNTIL KEYPRESS; 

READtINPUT,CHI; 

CH:a*E* 

END; 

IP (CKO ' E ‘ ) 

THEN 

IECIN 


WRITE IOUTPUT,* PRUNING. *); 
PRNUN : ■ I RAY I IVL,01; 


RELINK; 

VDOT; 


IF(CH«'N'> THEN PRAY12, PRNUK1: -0; 
NEIT; 

VDOT; 

WHILE (ICONTOO) DO 
BEGIN 

PRAY!2,IRAY£ IVL,0) I :«0 ; 

NEXT 

END; 


WDOT; 

(t HRN ADJUSTMENT •) 

IFICHa'N*I 

THEN 

BECIN 

I:aPRAYt 3,PRNUM1; 

WHILE(IOO) DO 
IECIN 

PRAYI 3,11:aPRAYI1,11-1; 
I-aPRATCJ,11 
END; 

•END; 

WDOT; 


ISt 


COMPRESS; 










(• SEQUENT PROCEDURE HODPRU *5 


VDOT; 

*1WRITE; 

VDOT; 

NNODES;■NEVNN0DE8 


KNO; 


END; 


NEVLVL:■!; 

PRITOT; 

REPEAT 

BEGIN 

IF(LVL>N£VLVL>THEN NEVLVL:.LVL; 

NEXT 

END 

UNTIL!ICONTaO); 

NDEEP: bNEVLVL; 

VDOT; 

FOR 1:■! TO HAXARRATSIZE 00 IRATII,01:-0; 
LVL;■1; 

SEEK(NODE,1); 

CET(NODE); 

NODEDISKTOARRAT(LVL); 


PLAC:■! 


END; <* END OF PRUNE «) 








(• SEGMENT MOCtOURE HODPRU 


PROCEDURE MODIFY; 


PROCEDURE MODITT • 

USE: PROCEDURE SUPPORTS OPTION MOD. ELICITS NODE REFERENCE * 
NUMIER FROM THE USER. IT THE NODE CZISTS, ONLY THE * 

LABEL OF THE NODE IS CHANCED. IF THE NODE DOES NOT • 

EE 1ST, A NEW BRANCH IS CREATED TO THE NODE. IF NO ■ 

SPANS EE 1ST TO THE INPUTTED NODE, A SINCLE NODE SPAN • 

IS CREATED AND HAS A NRN NUMBER OF ONE ON THE LEVEL * 

RECARDLESS OF VHAT WAS INPUTTED (THIS IS PRIMARILY * 

TO INSURE ACAINST PROGRAM FAILURE IN SUBSEQUENT • 

PRUNING OPERATIONS). • 

CALLED BY: SEGMENT PROCEDURE MODPRU * 

ROUTINES CALLED: UNIT DASSA (NODEARRAYTODISK,NODIN) • 

VARIABLES: • 

USED: NLVLB,T£NSTRINC,ICONT UNIT DASSA) • 

MODIFIED: IRAY,LVL,ND£EP,L,IFADD,IFIND.NNODES, • 

ANSWER,NODELABEL,ARAY.VRAY (••• UNIT DASSA) ■ 
IQUIT (>•• PROCEDURE MOCIFY) • 


VAR 

IQUIT:INTEGER; 

BEGIN 

IQUIT:.0; 

REPEAT 

BEGIN 

NODIN; 

IFIHLVISU) 

THEN IQUIT:ml 

ELSE 

BEGIN 

VRITE(OUTPUT,'LABEL? •>; 

READLN<INPUT,ANSWER); 

IT((ANSWERa 1 ')TR(ANSWER*'DONE')> 

THEN IQUIT:-1 

ELSE 

BEGIN 

ANSWER:.COPY(CONCATIANSWER,TENSTRINC).1,10 >; 
IF(ICONT.I) 

THEN 

BEGIN 

NODELABELt LVL 1 :.ANSWER; 

SEEK<NODE,IRAYtLVL,0)); 











NODEARRAYTODISRCLVL)i 
PUTCNODE) 

END 


(• SEGMENT PROCEDURE MODPRU • 


ILSI 

IKCIM 

L..2-1TADD; 

IFIND:.IRAYCLVL,03; 

REPEAT 
•EC IN 

NNODES:.NNODES«l; 

IRAYCLVL,IFADD]:.NNODES; 

• EEECNODE,IRAYCLVL,01); 

NODEARRAYTODISR<LVL>; 

PVTCNODE); 

LVL:•LVL*L; 

IRAYCLVL, 01:.NNODES; 

IF(LaO) THEN IRAYtLVL,11:.IRAYCLVL,11*1 
ELSE IRAYCLVL,11:■!; 

IRAYCLVL,21:.0; 

IRAYCLVL,)!:.0: 

IRAYCLVL.11.IFIND; 

IRAYCLVL,51.iriND; 

YOR 1-1 TO 2 DO ARAYCLVL,11:.0; 

YOR I:.I TO NSYS DO VRAYCLVL,I1:.0.0; 
NODELABEL[LVL1:■ANSWER; 

SEEECNODE,IRAYCLVL,01); 

NODEARRAYTODISEC LVL); 

PUTCNODE); 

IFADD: .2 ; 

IF1NO:.NNODES; 

L: .1 
END 

VNTllCLVD.NLVLS) 

END 

END 

END 

END 

VNTILC10UIT>Q); 

IF(LVL>NDEEP> THEN NDEEP:.LVL; 

END; (• END MODIFY •» 
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<* SECHENT PROCEDURE HODPRU 


• ■ItlllHIItttllttHlllltltMMltltl, 
IECIN SECHENT PROCEDURE HOCPRU 


•XCIN 

irtCHO-'PRU 1 > THEN PRUNE 
ELSE If (CMDb'HOD' ) THEN NODI FT 
END; 


til 










t* PROCRAH DABS »> 

PROCEDURE STAT; 


PROCEDURE STAT 

USE: PRESENTS INFORMATION ON THE CONSOLE CONCERNING THE 
NUHIER OF NODES IN THE SYSTEM, THE NUMBER OF LEVELS 
IN THE SYSTEM, AND THE NUMBER OF ALTERNATIVES IN THE 
SYSTEM. 

CALLED BY: PROGRAM DASS 
ROUTINES CALLED: <«on«) 

VARIABLES: 

USED: NNOOES,NDEEP,NSYS <••• UNIT DAJSA) 

MODIFIED: CH <■•• UNIT DASSA) 


SEC IN 

PAGE(OUTPUT); 

VRITELHC OUTPUT,'NUMBER OP NODES ‘.NNODES); 
VRITELNCOUTPUT.'NUMBER OF LEVELS *,NDEEP>; 
WRITELNIOUTPUT,'NUMBER OF SYSTEMS •,NSYS); 
VRITELN(OUTPUT); 

WRITELH(OUTPUT, '(ANY KEY) CONTINUE'>; 

REPEAT 

UNTIL KEYPRESS; 

READ(CM) 

END; 









(• PROOF AM DASS •) 


• I'niitmittiitiittatiMiiitiiitittitiiMattiiiiiiiitiiiitui 

* 

BEGIN PROGRAM DASS • 

aaaaaaaaaaaataaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaaaaa *) 
COIN 

COMMENTSTRt HC:«CONCAT(TENSTRING,TENSTRINC,TENSTRINC. 

TENSTRINC,TENSTRING.TENSTRINC >; 

LAREISTRINC:.TENSTRINK; 

ftAC:.Si NSYS:-2; NPLAC:.0; NDEEP:.0; 

IRAYU.1):.2; CHD:«'SEL' ;DUMMY; 

REPEAT 
ICC IN 

PACE (OUTPUT); 

WRITEth.OUTPUT.'ATT DIS DON HOD NEW NUM PRU REV SEL ’); 

WRITE IN (OUTPUT,‘SEN SPA STA STS TTL VVC); 

VRITE(OUTPUT.’OPTION) •); 

READLNfINPUT,CMD); 

IP(CMO.’ATT *) THEN DUMMY 

RtSE if(CMD.'DlS') THEN NUM 

ELSE If<CMD.’MOD*) THEN MODPRU 

CISC IFtCMD.’HEV*) THEM DUMMY 

ELSE IF<CMD.'NUN* > THEN NUN 

ELSE 1F(CMD.’PRU’) THEN MODPRU 

ELSE If(CMD.'REV) THEN NUM 

ELSE If(CMD.’SEL‘) THEN DUMMY 

ELSE If(CMD.’SEN’> THEN SENSITIVITY 

ELSE IF(CMO.'SPA') THEN DUMMY 

ELSE IF(CMD.'STA') THEN STAT 

ELSE IF(CMD.’SYS•) THEN READSYSTEMLABELS 

ELSE IF(CMO.'TTL*> THEN DUMMY 

ELSE IF(CMD.'WC’) THEN WVIOAD 

END 

UNTIL(CMD.'DON'); 

SEEK(NODE.O); 

CET(HODE); 

WITH NODEa DO 
BEGIN 

RATIONALE:.TITLE; NOUETITLE:-LATT; 

CELLNUMBER:.NNODES; NRKDICIT:-NDEEP; 

DOWNLINK:-NSYS; CROSSLINK:-FLAG 

END; 

SEEK(NODE.O)-; PUT(NODE); 

CLOSE(NODE, LOCK); CLOSE(SYSTEMS, LOCK); 

END. (* END OF PROCRAM DASS *> 


US 
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